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DISCLAIMER 



Although each program has been tested by its contributor, 

no warranty, express or implied, is made by the contributor 

or any User's Group, as to the accuracy and functioning of 

the program and related program material, nor shall the fact 

of distribution constitute any such warranty, and no responsibility 

is assumed by the contributor or any User's Group, in connection 

therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

^JProgram No. Date 

Program Name: ; 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

C om m ent _______________ 

2. Does the program do what the abstract says ? Yes Nq_ 

C om m ent ____________ 

3. Is the description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes . No_ 

Comment i 

Are the Sense Switch options adequately described (if applicable) ? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 



5. Does the source program compile satisfactorily (if applicable) ? Yes Nq_ 

C om m ent 

C6. Does the object program run satisfactorily? Yes No_ 

f Comment 

7. Number of test cases ru n Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

C om m ent 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No> 

Commen t 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 

Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 



Dayton, Ohio 45432 Users Group Code 



«THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND 
EVALUATION PROCEDURE. NONME MBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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SNOBOL 3 
David L. Wilson 
University of Wisconsin-Milwaukee 
Computing Center 
Downer & Kenwood 
Milwaukee, Wisconsin 
1620 User's Group code - 3285 



"Modifications or revisions to this program, 
as they occur, will be announced in the 
appropriate Catalog of Programs for IBM 
Data Processing Systems. When such an 
announcement occurs, users should order 
a complete new program from the Program 
Information Department . * 
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DECK LABELLING SHEET 



Deck Number 
1 

2 

3 
4 

1 (Optional) 

2 (Optional) 

3 (Optional) 



Sequence Number Range 
00000 - 00043 

00000 - 00209 
00000 - 00035 

Various 

00010 - 01500 
00010 - 14380 
00000 - 00454 



Description 

Object deck 

of Loader 

Program. 

Core image deck 

of SNOBOL 3. 

First card is a 

*DL0AD. 

Sample program 
Object decks of 
machine language 
functions. In- 
cludes MONITOR 
control cards. 
Source deck for 
Loader program. 
Source deck for 
SNOBOL 3. 
Source decks for 
machine language 
functions. In- 
cludes MONITOR 
control cards. 



Most of the following write up is adapted from the University 
of Michigan's write up for SNOBOL 3 on the 7090. This write up, in 
turn, borrows, heavily from write ups written by D. J. Parber, R. E. 
Griswold, and I. P. Polonsky of Bell Telephone Laboratories, Inc. in 
Holndel, New Jersey. This includes the article "SNOBOL, A String Mani- 
pulation Language" published in the Journal of the Association For 
Computing Machinery , Vol. 11, No. 2 (January, 1964), pp. 21-30. The 
sign (©) will be referred to as a prime or quote ('). 

Optional material will be forwarded only when specifically requested. 
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The SNOBOL language and the SNOBOL translator were 
developed at the Bell Telephone Laboratories in Holmdel, 
New Jersey, by D. J. Farber, R. E. Griswold, and I. P. 
Polonsky. The University of Michigan's version of 
the SNOBOL write-up has been used extensively in what 
follows . 



v 



1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 



1. TITLE (If subroutine, state in Title): SNOBOL 3, A List Processing 
Language Subject Classificatio n 1.4 ~ 

2. Author; Organization: David L. Wilson, University of Wisconsin-Milwaukee 

Computing Center „— _ 

Date: August 1966 U sers Group Membership Code: 32&5 

3. Direct Inquiries to Name: David L. Wilson 

Phone: 414-228-442b 

4. Description/Purpose: (5. Method; b. Restriction/Range; When Applicable;: 
SNOBOL permits easy manipulation of strings of alphabetic data. It con- 
tains capabilities for pattern matching, creating new strings, and re- 
cursive subroutines, • * r : • 

5. N/A 

6. Most machine language functions, except for pj^trjjuj, have been Imple- 
mented. These functions are not available to the non-disk user, ~ 



7. Specifications (Check or fill in appropriate space): 

a. Storage used by progra m 18k ' 

b. Equipment required by program: Card X; Magnetic Tape j Numb er o f 

, Drives } Paper Tape ; Disk Pile j Number of Drives ; TNS, T8F 

MF ; Auto divide ;~"!Endirect addressin g 1 Floating Point HarS^ 
ware ; 1620 KoaeTTl 20Kj Model 1443 Printer__j Index Regi- 
sters j Binary Capabilities j OtKer (specify) ' 

Can program be used on lesser machine? Yes. Specify which require- 
ments can be easily removed Auto divide — avoid division in source. 

c. Programmed in: Fortran without Format j Fortran with Forma t , 

Fortran II ; Other Fortran (specify) j SPS (Specify assembler 

used) II-D; Other (specify) . ' . 

d. Type of Program: Mainline, complete Xj Subroutin e ; if subroutine, 
for use with SPS (specify type of SPS) ; FortraE~"fspecify type of 
Fortran j Other (specify) 

8. Additional Remarks: A load e r is i n cluded for systems without a disk dri ve 
It replaces the non-disk gM j and PUT routines and loads a core image dec k. 
It can be used with any SPS II-D program. "" 



vi 




o 



SNOBOL 3 



I. THE SNOBOL LANGUAGE 



1. INTRODUCTION 

The ability to manipulate symbolic rather than 
numeric data is becoming increasingly important in 
programming. As symbolic manipulations become more 
complex, programming in machine-oriented languages 
becomes increasingly tedious and cumbersom. A number 
of programming languages (COMIT, IPL-V, LISP, etc.) 
have been developed to aid the programmer in such 
problems. As interest in language translation, program 
compilation and combinatorial problems has increased, 
many of these languages have been used for types of 
problems for which they were never intended. It is 
clear that more general symbol manipulation languages 
will materially expand the class of problems that can 
be programmed with reasonable time and effort. 

The string-oriented symbolic language SNOBOL has 
been developed with these problems in mind. The choice 
of the string of symbols as the basic data structure in 
SNOBOL was made because most symbol manipulation 
problems of current interest may be naturally described 
in terms of string manipulations. Unfortunately, no 
standard notation or accepted system of operations 
exists for string manipulations. Three basic operations 
seem essential, however, (1) creation of strings, 
(2) examination of the contents of strings, and (3) 
alteration of strings depending on their contents. 

A system for accomplishing these basic operations 
forms the nucleus of SNOBOL. In constructing the syntax 
and selecting the notation for SNOBOL, the potential 
programmer was given careful consideration. Emphasis 
has been placed on simplicity and intuitiveness while 
maintaining so far as possible the inherent power of 
a high-level programming language. 
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2. BASIC CONCEPTS 

2.1. Strings and String Names . The basic data 
structure in SNOBOL is a string of symbols. Names are 
assigned to strings to provide an easy way of referring 
to particular strings. The name of a string may be 
any string of numerals, letters, periods, and record 
marks (?Q . The name must be at least one, character long, 
and can be as long as wanted, restricted only to the 
provision that an element must be complete on one card. 
(See section 5 for indirect names) for example - 

Start 3^A.7 .LI 124 1 
Thus the string with name LINE.l may have the contents 

AR0UND, AR0UND THE SUN WE G0 

2.2 String Formation . The most elementary type of 
string manipulation is the formation of strings. A 
string named LINE . 1 with the contents givej-, above is 
formed by the following rule 

LINE.l = 'AR0UND, ARGfUND THE SUN WE G0' 
The pair of primes specifies the literal contents of 
a string. Any symbols (except primes) can be placed 
within the primes. Since primes are delimiters, there 
is no way to build a prime into a program as a constant. 
Therefore the translator pre-defines the string whose 
name is QUl^TE to contain a prime. All other strings 
(except literal strings, of course) are empty at the 
start of execution. Strings can also be formed by 
concatenation. Thus the rule 

LINE.l = ' AR0UND, AR0UND' 'THE SUN WE G0' 
produces the same result as the preceding example. 

Strings which have been named previously can be 
used to form new strings. For example, the rule 

EXAMPLE = LINE.l 
forms a string named EXAMPLE with the same contents as 
the string named LINE . 1 . 

Both literals and named strings can be used in 
formation. The sequence of rules 

LINE.l = « ARjZfUND, AR0UND THE SUN WE G0« 

LINE. 2 = 'THE M00N G0ES R0UND THE EARTH.' 

LINE. 3 = 'WE DfZf N0T DIE 0F DEATH* 



1 

This and the next few examples are taken from Archibald 
MacLeish, 'Mother Goose's Garland,' collected poems, 
1917-1952, Houghton Mifflin Co., Boston, Mass. Quoted 
by permission of the publishers. 
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LINE. 4 = »WE DIE 0F VERTIG0. ' 

TEXT m LINE.l V LINE. 2 •/* LINE.3 V LINE. 4 
will form a composite string with slashes separating 
the lines in the conventional manner. Note that the 
spaces between string names and literals serve as 
break characters for distinguishing the elements to be 
concatenated. At least one space is required for 
separation, but more may be inserted. 

In forming a string, the string itself may be used. 
Hence, after performing the two rules 
NUMBER = '1' 

NUMBER = NUMBER NUMBER '0' 
The string NUMBER will contain the literals 1 HQ ' . 

2.3 Pattern Matching . The process of examining the 
contents of a string for a given substring is called 
pattern matching. For example, to determine whether 
the string named LINE.l contains the literals 'R0UND', 
the following rule would suffice - 

LINE.l «R0UND« 
This rule is similar to a formation rule, but without 
the equal sign. The string LINE.l is scanned from the 
left for an occurrence of the five literals 'R0UND' in 
succession. A pattern matching rule may succeed or fail. 
Section 3 describes how this success or failure may be 
recognized and used. If LINE.l is formed as above, the 
scan would be successful. The string being scanned is 
not altered in any way. 

The pattern may be specified by the concatenation 
of a number of literals and string names Just as the 
contents of a string to be formed were specified. For 
example, 

TEXT LINE.l •/' LINE.2 

specifies a scan of the. string named TEXT for an occurrence 
of the contents of the string LINE.l immediately followed 
by the literal '/' and infcurn immediately followed by 
the contents of the string LINE.2 . 

2.4 String Variables . The type of scanning described 
in the section 2.3 is clearly limited. One might, for 
example, want to know whether a string contains one 
substring followed by another, but with the second substring 
not necessarily immediately after the first. A string 
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variable in introduced to permit this kind of scanning. 
The rule 

LINE.l ' AR0UND 1 *FILLER* 'SUN 1 
is of this kind. Here we wish to know whether LINE.l 
contains ' AR0UND ' followed by ' SUN ' with perhaps 
something between. The symbol s~*^CLLER* represent a 
string variable which takes care of this 'something.' 
If LINE.l is formed as in section 2.2, this scan would 
be successful. A string variable may be any string 
name bounded by asterisks. 

A by-product of successfully matching a pattern 
containing a string variable is the formation of a new 
string which has the name given between the asterisks 
of the string variable. This newly formed string 
contains a copy of the substring of the scanned string 
where the string variable fitted, i.e. the 'something' 
previously mentioned. Note that this 'something' may be 
'nothing', i.e., the string variable may end up with 
the void string (=NULL STRING, =EMPTY STRING, =STRING 
OF LENGTH ZERO) as contents. In the example give, a 
string named FILLER w ould be formed with the literal 
contents ' , AROUND THE ' . This newly formed string is 
entirely independent of the scanned string. 

2.5 Replacement . One final rule permitting 
alteration of the contents of a string will complete 
the basic string manipulations. Suppose in the string 
LINE.2 we wished to replace ' EARTH ' by ' GLOBE ' . The 
following rule will accomplish this 

LINE.2 'EARTH' = 'GL0BE' 
This rule scans LINE.2 for an occurrence of ' EARTH '. If 
this scan is successful, ' EARTH ' is then replaced by 
1 GL0BE ' . Thus LINE.2 would become ' THE M00N G0ES AR0UND 

THE GL0BE. 1 . If the scan fails, the string being 

scanned is not altered. 

As before, the pattern may be any combination of 
named strings, literals, and string variables. Only 
the substring matching the pattern is replaced. As 
a case of special interest, writing nothing to the right 
of the equal sign causes the substring found by the 
scan to be deleted. Thus 

LINE.2 'EARTH' = 
would delete ' EARTH 1 from LINE.2 
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Any string formed as the result of a successful 
pattern match of a string variable on the left side 
of the equal sign can be used in the replacement on the 
right side. Thus 

LINE.l 'AR0UND' *FILLER* 'SUN' = FILLER 
would result in the deletion of »AR0UND' and 'SUN 1 
from LINE.l . 

2.6 Back Referencing . In the example above, the 
string formed as the result of a string variable in 

a successful pattern match was used for replacement in 
the same rule. It is even possible to use strings 
tentatively matched by string variables in the course 
of the scan. Thus a pattern may contain a string name 
which is the same as the name of a string variable used 
previously in the pattern. For example, 
*X* M X 

is a pattern containing such back referencing. Since 
the scan proceeds from left to right, an attempt to 
find an occurrence of X will only be made after X is 
tentatively defined by *X*. If 

TEXT = » (C,D)~"(A~,B) (D,C) (A,B) 1 
then the rule 

TEXT ■ ( • *X* ■ ) • *Y* ' ( ' X 1 ) 1 
would succeed, forming a string named X with the contents 
'A,B' . 

2.7 Other Types Of String Variables . The string 
variable described in section 2.4 was completely arbitrary 
in the sense that it could match any substring depending 
on the particular pattern and string being scanned. 
However, it is often desirable to restrict the types of 
substrings a string variable can match. For this purpose, 
there are two other types of string variables. 

2.7.1 Balanced String Variables. Balanced string 
variables are useful for analyzing algebraic structures. 
A balanced string variable can only match a nonvoid 
substring which is balanced with respect to parentheses. 
Some examples of balanced substrings are 

A A+(BC) ( ( ( ,AB)ACD) ) 

The following substrings are not balanced - 
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)( (((A+B))+C)) 

to indicate a balanced string variable, the string 
name is bounded by parentheses and then by asterisks, 
e.g. *( CATCH)* 

2.7.2 Fixed-length String Variables . A fixed- 
length string variable can only match a substring of 
specified length. A fixed-length string variable 
is indicated by appending to the string name a slash 
and the length. The length may be expressed either by 
a literal integer or the name of a string containing 
an integer. Thus *PAD/ ' 3 ' * is a fixed-length string 
variable which can only match a substring of three 
characters. Similarly, *MATCH/N* where N = '15* can 
only match a substring of 15 characters. 



3. PROGRAM STRUCTURE 

In order to make use of the string manipulation 

facilities of SNOBOL, the rules are assembled into a 
program consisting of a number of statements which 
are executed in a prescribed order. 

3.1 Statement Format . A statement, in general, 
consists of three parts, separated by blanks, in the 
following order - 

I) A LABEL, NAMING THE STATEMENT, 

II) A RULE, WHICH MAY BE ONE OF THE TYPES 
DESCRIBED IN SECTION 2, AND 

(III) A GO-TO, WHICH MAY CONDITIONALLY SPECIFY 
WHICH LABELED STATEMENT IS TO BE 
EXECUTED NEXT. 

3.1.1 Labels . A label must start with a letter or 
digit. The remaining characters can be anything but 
blanks. For example- 
LO A* C$$ 

A direct transfer can only be made to a label which 
satisfies the requirements for a string name. A label 
must start at the beginning of the statement (column 1 
of the card). The label on a statement is optional. If 
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a statement has no label, it must begin with a blank. 
A line beginning with an asterisk is a comment and is 
not executed. 

3.1.2 Rules . Various types of rules were described 
in Section 2~I In all of these types, a rule may be 
considered to consist of four parts, separated by 
blanks, in the following order - 

(I) A STRING TO BE MANIPULATED, CALLED THE 
STRING REFERENCE, 

II) A LEFT SIDE, SPECIFYING A PATTERN, 

III) AN EQUAL SIGN, AND 

IV) A RIGHT SIDE, SPECIFYING A REPLACEMENT. 
The string reference is mandatory. Any of the rest 

of the rule may be absent, depending on the particular 
rule. Literals may be used in the string reference 
field. For example, 

•0' K /S(TEST)F(L00P) 
A literal isn't a name. Therefore no right side may 
occur in a rule with a literal string -reference. 

3.1.3 Go-To . The go-to consists of a slash followed 
by one or more of the follwing parts- 

(I) AN UNCONDITIONAL TRANSFER, WHICH HAS THE 
FORM (BAK SPECIFYING THAT UPON COMPLETION 
OF THE STATEMENT, THE NEXT STATEMENT TO 

BE EXECUTED IS THE STATEMENT WITH LABEL BA. 

(II) A CONDITIONAL TRANSFER ON FAILURE, WHICH - 
HAS THE FORM F (BB) , SPECIFYING THAT IF 
THE STATEMENT FAILS, THE STATEMENT WITH 
LABEL BB IS TO BE EXECUTED NEXT. 

(III) A CONDITIONAL TRANSFER ON SUCCESS, WHICH 
HAS THE FORM S(BC), SIMILAR TO FAILURE 
TRANSFER BUT WITH TRANSFER TO BC MADE 
ON SUCCESS. 

Some examples of go-to 1 s are 

/(M0RGAN) /F(TIME) /S(ARB0R)F (RESET) 

3.1.4 Continuation . The SNOBOL translator reads 
statements from columns 1 to 72 of the source deck. 
Statements which are too long to fit on one card may 
be continued on to the next, and succeeding, cards, by 
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punching a period in column 1 of the continuation cards. 
Statements may be broken across cards only at places 
where blanks are mandatory. That is, a string name, 
literal, or any other kind of element may not by split 
across cards. 

3.1.5 Comments . Any card which has an asterisk 
in column 1 is a comments card. It is printed in the 
source program listing and then ignored. Comments cards 
may be placed anywhere ahead of the END card. Comment 
cards and continuation cards may be interspersed. 

3.2 Program Format and Execution . A program consists 
of a sequence of statements followed by a statement with 
the label END and a string reference which is the label 
of the first program statement to be executed. Optionally, • 
the END card may have no string reference in which case 
execution begins with the first statement in the program. 

Statements are executed in succession unless a go-to 
specifies a transfer to some other statement in the pro- 
gram. In all situations where a go-to is not specified, 
control is transferred to the next statement in the program. 
The program execution terminates when a transfer to END 
is made. """"" 
As an example, consider the following simple program 
to remove all occurrences of the letters A,E,I,0 and U 
from a string named TEXT (presumed to be already defined) - 

START VfZfcTEL = 'A,E,I,0,U, • 

VI V0WEL *V* = /F(END) 

V2 TEXT V - /S(V2)F(V1) 

END START 

The program execution begins with the statement 
labeled START , consequently forming a string named V0WEL . 
The next statement executed is VI which names the first 
character in V0WEL to be V, andlTeletes this character 
and the comma following iTT. This rule will not fail 
the first time it is executed, hence control is transferred 
to the subsequent rule V2. 

V2 looks in TEXT for the vowel and if successful 
dele^e*s it, transferring control to V2 once more. This 
loop continues until all occurrences of the vowel have 
been removed. When V2 finally fails, control is transferred 
to VI which selects another character from V0WEL , and so 
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on. When V0WEL is exhausted, the program is terminated, by 
transferring to END. 

4. ARITHMETIC 

Simple arithmetic may be performed on strings whose 
contents are integers, (i.e., only the digits to 9, 
optionally preceded by a + or - sign, are legal. If 
blanks or other characters are present then the string 
is not an integer.) Binary operations of addition, 
subtraction, multiplication, division and exponentiation 
may be performed on the right side of any rule. The symbols 
for these operations are the operators 

+ _#/## 

respectively. For example L = A + B would form a string 
named L containing the arithmetic sum of the contents 
of strings A and B. 

This arithmetic expression can be considered as 
a single element on the right side, and may occur in 
place of any right side element. For example, suppose 
a string has two indices, such as 'L.1.3'. We may have 
increment these indices by using the arithmetic operation. 
Suppose the name of 'L.1.3' is MARKER . The rule 

MARKER »L. ' *I* '.' *J* = 'L. 1 I + '1' '.' J + '1' 
would increase both indices, so the MARKER would contain 
'L.2.4' . 

FTule containing arithmetic will fail if 1) either 
of the operands is not an integer, 2) too large a number 
would result from the operation (the current implementation 
has an upper limit of 10 digits and sign), or 3) division 
by zero is attempted. 

The second condition is a fatal error. 

Any number of these binary operations can be performed. 
More complicated expressions such as A + B + C and 
A + (B * C) may be effected by grouping with parentheses - 
see Section 6. 

5. INDIRECTNESS 



It is frequently convenient, and for many purposes 
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necessary, to be able to introduce a level of indirectness. 
This is accomplished in SNOBOL by writing $ in front 
of the string name. Thus if the string FACT0R contains 
the literals ' ' TERM ', writing $ FACT0R is the same as 
writing TERM. "Note that whereas the DIRECT name of a 
string is limited to the form specified in Section 2.1, 
there is no restriction on the INDIRECT name of a 
string. That is. the contents of any string (except 
the empty string) may be used as the name of a string. 

An example of the utility of such a feature is the 
ability of altering the effective go-to of a rule. 
Suppose I and J are strings containing numbers 
generated" in tEe program. The rule 

LABEL = 'B' I '.' J /($LABEL) 
first creates a string with literal contents depending 
on I and J. Suppose I is '3' and J is '2 « . Then LABEL 
would be TB3 .2 1 . Thus indirectness~here permits alteration 
for program flow depending on data (here I and J) . 

Another example is the analysis of text. Suppose 
that in the example of Section 2, the individual 
words in TEXT were also introduced as strings whose 
contents were lists of the possible parts of speech 
for the given word. Thus, the 'dictionary' might 
be formed as follows - 

AR0UND = 'ADVERB, PREP0STTI0N' 

THE = 'ADJECTIVE, ADVERB' 

SUN = 'N0UN, VERB 1 

WE = ' PR0N0UN ' 

GO = 'VERB, N0UN ' 

and so one. The following program then selects the 
first word in TEXT which might be a verb. 

PULL"^ElT *W0RD* ' ' = /F(FAIL) 

$W0RD 'VERB' /S(0UT)F(PULL) 
if TEXT contains a word which might be a verb, control 
is transferred to the statement labeled 0UT, but 
otherwise to fail. 

The indirect feature is useful for specifying the 
return address of a surboutine. (See Section 8.2). Suppose 
CAP is the label of the first rule of a subroutine and 
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/($RET) 

is the go-to of the last rule executed in CAP . A call 
to the subroutine which returns to the rule with 
label A5 is given by the following rule - 
RET = »A5' /(CAP) 



6. GROUPINGS 

Concatenation of strings and arithmetic in any 
position, not Just on right side, may be done by 
grouping elements in parentheses. For example, 
Z = M - N 

Z '-' /S(LR) 
can be replaced by 

(M - N) »-» /S(LR) 
The following examples illustrate how groupings may 
be used. Thai lines 

I = '2' 

J = I + ( '3' ** I ) 

$( »R0t*« J ) = 'ABC 
would give R0W11 the contents ABC . The lines 

I-TTL' — 

STSPIT *$( 'P« I )* ' • 
would read the next sard image from the input tape and 
name everything up to the first blank PI. 

Groupings may be nested to an arbTErary depth. 
Indefinite levels of indirectness and arbitrarily 
complex arithmetic may be written using groupings. 
For example, 

$($($($( X )))) 

(V+Yb * C j ) * ( '3' ** ( A - C ) ) 

*A/( '5' - • ( N + M ) )* 
Groupings may be used anywhere in a statement that 
*L lii«TalV±sp permissible. A grouping is not a name, 
and may not be used where a name is required. Therefore, 
the following uses of groupings are illegal - 

( M + N ) = 'ABC*' 

Z «5' /S((R '7 1 )) 

indirectness applied to a grouping does yield a name. 
Thus, 

Z '5' /S($(R '7' )) 



e 
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is legal, and 

I = '2' 

$( 'LINE ' I ) = ' RESULT ' 
would give LINE 2 the contents RESULT 



7. INPUT-OUTPUT 

Input and output in SNOBOL are effected by 
associating string names with various input-output 
operations. The string names given in this section 
are pre-defined by SNOBOL. 

7.1 Input. The string name SYSPIT is associated 
with the system input. Whenever SYSPIT is mentioned, 
a card image (80 columns of the card) is read from 
the 1622 card reader and becomes the contents of 
SYSPIT . For example, 

SYSPIT *LINE* » 1 
since a new card is read into SYSPIT every time SYSPIT 
is mentioned, its contents are available only once 
for scanning. The statement will fail on last card indi- 
cations (SNOBOL turns the last card indicator off after 
reading the end card.) 

7.2 Output. The string name SYSPOT is associated 

with the system output (typewriter or printer) . For example 

SYSPOT = 'THE SUM IS -' SUM 
Similarly, as many output records as are necessary to contran 
the output will be produced. The string name SYSPIT will pro- 
duce punch output as card(s) of 80 columns eacEI 

SYSPOT and SYS PPT retain their contents like any 
other strings . 

8. FUNCTIONS 

Functions are one of the most important features of SNOBOL. 
These functions have strings as arguments and generate strings 
(possibly void) as values. A call on a function consists of 
the function name followed by a list of arguments (separated by 
commas) in parentheses. There must be no blanks between the function 



o 
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name and the following left parenthesis. For example, 
if SIZE is a function such that SIZE(X) is the number 
of characters in the string named T, then 

Z = 'ABC ~ 

SYSP0T ~ SIZE(Z) 

Should Print 3. 
Functions may be used in the same contexts as groupings. 

The arguments in a function call may be any 
expression acceptable on the right side of a SNOBOL 
rule. For example, 

SIZEF( ZZ ) 

G(SIZE(Z) + '3') 

f(fx,y),f(y,x) G('3')) 

Functions may signal failure instead of returning 
a value. A function which fails causes the statement 
in which it occurs to take its failure exit. When a 
function fails in a statement, execution of that 
statement ceases immediately. It is therefore important 
to know the order of evaluation within a statement — 

(1) The string reference is evaluated. 

(2) If there is a pattern, the pattern elements 
are evaluated left to right, and then a 
pattern match is attempted. 

(3) If there is no pattern or the pattern 
match is successful, the right side, if 
any, is evaluated left to right. 

(4) Finally the go-to appropriate to the 
success or failure of the rule is evaluated. 

Thus in the rule 

$F(X) *A* G(B,C) = H(A) K /S($ADDR(A) ) 
The following possibilities exist 

(1) If F(X) fails, the statement fails immediately 
with no pattern match. 

(2) If F(X) does not fail, but G(B,C) fails, 
the statement fails with no pattern match. 

(3) If neither F(X) nor G(B,C) fail, but if 
the pattern match fails, the statement 
fails with no change in $F(X) . 

(4) If everything has occurred successfully 
through the pattern match, but H(A) fails, 
the statement fails with no change in $F(X) . 

The failure of a function in a go- to is a fatal error. 



o 
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8.1 Machine Language Functions 

8.1.1 Scanner Control Functions . 

8.1.1.1 M0DE Functions . A call of M0DE( 'ANCH0R' ) 
will cause the SNOBOL match pattern scanner to go into 
anchored mode. From then on, the first element of a 
pattern match specification must match from the beginn- 
ing at the reference string in order for the match to be 
successful. A call of M0BE ( [ UNACHgR ' ) returns the scanner 
to the normal mode. A call of M0DE ( ' INTEGER [ ) will cause 
division to fail whenever the result has a non-zero remainder. 
A ** B will also fail if A is non-zero and B is negative. A 
call of MgfDE( ' TRUNCATION ' ) will return SNOBOL to the normal 
arithmetic mode. M0DE always takes the success exit and re- 
turns a null string. 

8.1.1.2 ANCHOR and UNANCH Functions . If any of the 
elements of a match pattern specification is of the form 
ANCH0R ( ) the match pattern scanner will go into anchored 
mode for that statement only. If any of the elements of 
a match pattern specification is of the form UNANCH Q the 
match pattern scanner will go into unanchored (normal) 
mode for that statement only. These functions always take 
the success exit and return a null string. 

8.1.2 SIZE Function . SIZE is a function such that SIZE(X) 
is the number of characters in the string named X. SIZE* 
always takes the success exit. 

8.1.3 TRIM Function. TRIM is a function such that TR3M(X) 
is the contents of the string named X with trailing blanks, 

if any, removed. TRIM is usually used for formatting input. 
Remember, however, that TRIM will not go past any identifi- 
cation material in Cols. 73-80 if one is using TRIM on the 
entire card image. TRIM always takes the success exit. 

8.1.4 EQUALS and UNEQL Functions . EQUALS (X,Y) takes the 
success exit if X and Y are strings of equal length with 
identical contents. Otherwise the function will fail. 
UNEQL(X,Y) takes the failure exit if the strings X and Y 
have identical contents. Otherwise the function will 
succeed. These functions always return a functional value 
of a null string. 
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8.1.5 Arithmetic Functions 

8.1.5.1 Relation Functions . The relation Functions take 
the success exit if the given numeric relation holds between 
the two integer strings it is called with. The failure exit 
is taken if the relation does not hold or if either of the 
two strings it is called with is not an integer. These func- 
tions always return a null value. The functions are: 

,EQ(X,Y) Contents of X numerically equal to contents of 

.NE(X,Y) " " X numerically unequal " " 

.LE(X,Y) " " X less than or equal " " " 

.LT(X,Y) " " X less than " " 

.GE(X,Y) " " X greater than or equal " " 

,GT(X,Y) " " X greater than " " 

8.1.5.2. NUM Function. .HI3M(X) succeeds if X is numeric, 
and fails otherwise .MUM always returns on a null value. 



8*1.5.3 .REMDR Function. .REMDR(X,Y) returns the remainder 
of the contents of X divided by the contents of Y. The 
function fails if the contents of Y is zero or if either of 
the strings is not an integer. 

8.1.6 User Added Functions 

There is space in the SN0B0L's subroutine table for 
five ueer added functions. The name and DIM number of such a 
function would have to be patched into the subroutine table 
in the object deck. If the user wishes to add more than five 
functions it would be best for him to remove the arithmetic 
functions. Consult the listings for further information. 

8.2 SN0B0L - coded Recursive Subroutines 

8.2.1 PUSH Function . The PUSH function has one argument 
consisting of the names of the strings to be pushed, separated 
by commas. The only restriction on such string names is that 
they may not contain any commas. Pusing a string saves the - 
contents of the string in a push down list, and sets the con- 
tents of that string equal to the null string. The PUSH 
function gives a null returning value and always takes the 
success exit. 
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8.2.2 P0P Function . The P0P Function has one argument con- 
sisting of the names of the strings to be pushed, separated 

by commas. Popping a string recovers the next saved value from 
the push down for that string. If the string is popped more times 
than it is pushed, its contents will be null. The P0P function 
always takes the failure exit unless the push down lists of all of 
the strings it is to pop, as well as the strings themselves, are 
all empty. Thus, a push down list can be cleared by re-executing 
the P0P function until it succeeds. The PUSH and Pgp Function were 
implemented in place of the DEFINE function. As orthe date of this 
write-up, no other SN0B0L 3 has the PUSH and P0P functions. 

8.2.3 Example . The following is an example of a SN0B0L coded - 
recursive subroutine. This program calls a recursive factorial pro- 
gram to take the factorial of 12. 



NEXT 
NFACT 



BACK 

FIN 
END 



ARG 

SYSPOT 

ARG 

.LE(N,«1») 

ARG 

P0P( »ADDR,N«) 

RET 

RET 



/(NFACT) 
/(END) 



= 'NEXT, 12 1 
= RET 

*ADDR* *N* 

/S(FIN) 

= 'BACK,' N - »1» push(»addr,n:») 



/ (NFACT) 



= N * RET 
= «1? 



/(4ADDR) 
/(?ADDR) 



This subroutine uses the fact that N 1 =» N* (N-l) J . When it 
is called to take the factorial of N where N is greater than 1 
it calls itself to find the factorial of N-l and then sets the 
returning value ( RET) equal to N times the old returning value. 
The first statement is a call to the subroutine. The arguments, 
separated by commas, are placed into a string named ARG and con- 
trol is transferred to the first statement of the subroutine, 
namely NFACT, In this case there are only two arguments, the 
statement label to which the subroutine is to return, and the 
number whose factorials is to be taken. The first statement of 
the subroutine puts the arguments into two strings; the return 
statement label will go into ADDR and the number will go into 
N . The next statement tests if N is less than or equal to 1. 
1? it is, the returning value of the subroutine is set equal to 
1 and control is transferred to the statement whose label name 
is the contents of ADDR. 
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Otherwise, the subrout in e calls itself. That is, it 
sets ARG equal to a return statement label of BACK , 
followed by a comma, followed by the current value of N 
minus 1. It then calls PUSH to save the contents of 
ADDR (the return statement label) and N (the number 
whose factorial is being taken). Then the statement 
transfers control to NFACT, the first statement of the 
subroutine. Eventually the subroutine will return to 
BACK with the value of (N-l) I in the string RET . At 
BACK the values of ADDR and N are restored by calling. 
P0P, The next statement sets the returning value of 
l^Ee subroutine equal to N times the old returning value, 
namely (N-l)I and transfers control to ADDR indirect. 
When the program gets back to NEXT , RET will contain the 
value of 12 i which is printed out. The program is then 
terminated. This program used 11 levels of recursion. 
The maximum permitted is 99. 



9. SCANNING ALGORITHM 

In general, a pattern specified on the left side 
of a rule consists of a number of elements, i.e. named 
strings, literals or string variables. Examples in 
the preceding sections have described the substrings 
which each type of element can match. The way that a 
specified pattern matches a given string is usually 
clear. In cases where questions may arise, the follow- 
ing scanning algorithm, which describes the details of 
the pattern matching process, may be useful. 

Rule 1 . An attempt is made to match the first 
pattern element starting at the first symbol of the 
string. If this match cannot be made, the match is 
attempted starting at the next symbol of the string, and 
so on. 

Rule 2 . The matching process proceeds from left 
to right, successively matching pattern elements. Each 
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pattern element matches the shortest possible substring. 

Rule 3 . If at some point an element cannot match 
a substring, an attempt is made to obtain a new match 
for the preceding pattern element. This new match is 
accomplished by extending the substring formerly matched 
to obtain the next shortest acceptable value. If this 
extension cannot be made, Rule 3 is applied again. If 
there is no preceding element a new match is attempted 
according to Rule 1. 

Rule 4 . If the last pattern element is an arbitrary 
string variable (i.e. not fixed-length or balanced), its 
matching substring is extended to the end of the string. 

The pattern match succeeds when the last pattern 
element has been matched. The pattern match fails when 
the first element cannot be matched. 
Examples - 

1. Pattern - «K« *(A)* 'ST* 
String - K)AK(A+B+C)ST 

Initially, the first pattern element matches the first 
occurrence of the letter K in the string. The second 
pattern element cannot be matched starting from a 
right parenthesis. Hence, according to Rule 3 an 
attempt is made to extend the substring matching the 
first pattern element. However, a constant cannot be 
extended. Therefore, a new match for the first pattern 
element is attempted according to Rule 1. Applying 
Rule 1 repeatedly, the first pattern element is finally 
matched with the second occurrence of the letter K. 
The second and third pattern elements then match the 
substrings (A+B+C) and ST respectively and the pattern 
match succeeds. , „ 

2. Pattern- 'S' *(A)» »S« 
String- S) (S+A*B(S 

The pattern match fails. 

3. Pattern- *HV/ , 5 I * *A* 'K' *B* 
String- ABCDEFGHIJKLMN0 

The pattern match succeeds with the following values 
of the pattern elements 

*HV/'5* ABCDE 

*A* FGHIJ 

iK' K 

*B* LMN0 
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4. Pattern- *A* *SUM/'3'* V 

String- 36V- 
The pattern match succeeds with *A* matching the void 
string. 

Examples with back referencing — 

1. Pattern- *A/'3'* A 
String- ABCDEFGHFGH 

The pattern match succeeds: with the scope of the match 
as underlined. The pattern elements have the following 
values 

*A/'3'* FGH 

A FGH 

2. Pattern- * : '" *A* *B* ».» B A 
String- 32^506 79.97 

The match succeeds as indicated with the following 
Values 

*A* 7 

#B* 9 

t # 1 

B 9 
A 7 

3. To illustrate the complexity that can occur in a 
pattern involving back: referencing, consider the 
following example. 

Pattern- *A* *(B)* *(C)* *D*CDBDCA*E*AE 

String- BACCABACABABACACAB 
An attempt to match this pattern will give insight into 
the difficulties involved. The values of the pattern 
elements are given below. 1 



10. SNOBOL COMPILER CONTROL CARDS 

The SNOBOL compiler will recognize control cards 
and take appropriate action during compilation. Control 
cards are indicated by a minus sign in column 1. The 
first non-blank subfield (up to the next blank) is taken 
to be the control word for the card. The control cards 
are as follows — 

10.1 EJECT 

Eject to a new page in the listing of the SNOBOL 
program. 

1 

*A* and *E* match void substrings. *(B)* and *(C)* match 
BAG and GAB respectively. *D* matches A. 
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10.2 LIST 

Resume listing of the SNOBOL program. 

10.3 PCC 

Print control cards. PCC is a binary switch. 

10.4 SPACE 

Print a blank line in the program listing. 

10.5 TITLE 

Take the card for titling of the program listing. 

10.6 UNLIST 

Stop program listing. 

10.7 PRINTER 

Use 1443 printer for SYSPOT file instead of typewriter. 

10.8 DUMP 

Dump memory on the SYSPOT file at the end of execution. 



APPENDIX 

Example of a SNOBOL program 

The problem of alphabetizing a list of words using 
a Radix Sort illustrates the use of many of the features 
of SNOBOL. The program shows the format of the 
implementation. 

In this procedure, 26 bins corresponding to the 
letters of the alphabet are used for filing words on 
successive passes. Suppose N is the number of letters 
in the longest word. The first pass is made on the Nth 
letter of the words, with each word being added to a 
bin corresponding to this Nth letter. Words which are 
shorter than N letters are filed in a special bin. After 
this pass, the list of words is reassembled from the bins 
starting with the special bin, followed by the contents 
of bins A through Z. The next pass is made on the (N-l)st 
letter and so on until N passes have been made. When 
the list is reassembled the last time, the words are 
in alphabetical order. 
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The SNOBOL program in the example executes the Radix 
Sort. For simplicity it is assumed that the number, N, 
of characters in the longest word appears left justified 
on the first data card. Successive data cards contain 
the list of words with a comma following each word, 
and with each data card terminating with blanks. 

* ALPHABETIZATION USING A RADIX SORT TECHNIQUE 
* 

* FIRST THE SIZE OF THE LONGEST STRING, AND THEN THE LIST 

* OF WORDS IS READ INTO STRINGS OF CORRESPONDING NAMES. 

* AFTER PRINTING THE LIST THE WORDS ON 'LIST' ARE EXAMINED 

* USING THE FIXED-LENGTH STRING VARIABLE FEATURE, IF THE 

* WORD IS TOO SHORT, THE WORD IS ADDED TO THE SPECIAL BIN 

* (NAMED 'BIN 1 ). OTHERWISE THE LETTER CONTAINED IN 'PIT' 

* IS THE NAME OF THE BIN INTO WHICH THE WORD IS FILED 

* USING THE INDIRECT FEATURE, AFTER ALL WORDS HAVE 

* BEEN FILED, THE LIST IS REASSEMBLED AT STATEMENT L5 

* AND FOLLOWING STATEMENTS. NOTE THAT L5 PLACES THE 

* CONTENTS OF 'BIN' IN 'LIST' AND AT THE SAME TIME VOIDS 

* 'BIN' FOR THE NEXT PASS. NEXT EACH OF THE BINS IS 

* ADDED TO 'LIST' IN ALPHABETIC ORDER, AND THEN VOIDED. 

* THE NEXT PASS IS THEN MADE. WHEN 'SIZE ' BECOMES 

* NEGATIVE, THE LAST PASS HAS BEEN MADE AND THE ALPHABETIZED 

* LIST IS PRINTED OUT. 
* 

BEGIN SYSPIT *SIZE* « ' 

START SYSPIT *WORDS* » • /F(LO) 

LIST = LIST WORDS /(START) 

LO SYSPOT = • THE LIST TO BE ALPHABETIZED IS - ' LIST 

LI ALPHABET = ' ABCDEFGHI JKLMNOPQRSTUVWXYZ ' 

L2 SIZE = SIZE - '1* 

SIZE '-«. /S(FIN) 

L3 LIST *WORD* ',' = /F(L5) 

WORD *HEAD/SIZE* *PIT/'l'* /F(L4) 

$PIT = $PIT WORD ',' /(L3) 

L4 BIN = BIN WORD ',' /(L3) 

L5 BIN *LIST* = 

L6 ALPHABET *PIT/'l'* = /F(Ll) 

LIST = LIST $PIT 
$PIT = /(L6) 

FIN SYSPOT = ' THE ALPHABETIZED LIST IS - ' LIST 

END BEGIN 

9 
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ARMY, TEST, GLOBAL, ARMORY, GLOBE, ARM, TENSOR, ALIBI, 
ARE , GLOW, TENSE , TOTAL, CANCEL, TONS IL, GLADIATOR, 
MOBILE , MOTILE , ANY , TORS ION , PLAT ITUDE , FUMBLE , 
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PROGRAM WRITE-UP 

SNOBOL 3 
August, 1965 
David L. Wilson 

University of Wisconsin-Milwaukee 

Computing Center 

Downer & Kenwood 

Milwaukee, Wisconsin 

Phone : 414-228-4426 

User group membership code 3285 



A. Restriction 

Arithmetic done on a non-numeric string or division by zero 
will act as a function failute. 

No element of a match pattern specification (including 
string variables) may exceed 4999 characters in length. 
The number of elements of a match pattern spe c if ication may 
not exceed 19. 

DEFINE has not been implemented for 1620 SN0B0L3. Indirect 
string names may not exceed 499 character in length. 

On continuation cards, the period is replaced by a blank. 
All continuation cards are checked separately for balanced quote 
marks and balanced parentheses. 
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B. ST0PS . 

The program will loop if switch 2 (the interrupt switch) 
is on at entry time until the switch is turned off. 

The card system will execute a halt at 00796 at the end 
of execution. 

C. OPERATING INSTRUCTIONS 

1. Card System 

Decks 1 and 2 should be put together and loaded. 
Core need not be cleared. These decks should be followed by 
the SNOBOL source deck which, in turn, should be followed by 
the data. Once the halt at OO796 is executed one can execute 
the next SNOBOL program by doing a non-process run out on the 
cards in the read hopper; pressing start; and feeding the next 
SNOBOL program through. 

2. Monitor System 

Deck 1 should be kept for doing batch processing 
runs under the card system. 

Deck 2 should have & JOB and 3^ DUP cards placed in 
front of it. It should then be run through the MONITOR system, 

SNOBOL can then be called by a ^ JOB card, followed 
by an j^XEQ SNOBOL card, followed by the source deck and data. 

3. Sense Switches. 

Sense switch 1 is used to print out the 'SNOBOL' 
statements as they are executed. 

Sense switche 2 is used to interrupt a SNOBOL 
program. This will cause an ERROR 01 message. 

Sense switches 3 and 4 are not used. 

4. Program Switches 

The first four columns of the second card of Deck #2 
are zero. These are binary switches used by the interpreter. 
Any of them can be set initially on instead of initially off by 
putting a J in the corresponding column. The four switches are, 
in order, the switches for a printer, listing the source deck, 
printing control cards, and dumping memory at the end of execution. 
The next 4 columns contain twice the length of a line on the 
printer for those that have a 1443 printer. Assumed length is 120 
characters. 
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5. Check Stop Switches 

All check stop switches should he to program 
when running a SNOBOL program. 

D. EQUIPMENT REQUIRED. 

Required equipment: 1620 model I, 20K, indirect 
addressing, auto-divide, card I/O. 

Development system: 1620 model II, 60K, automatic 
floating point, two 1311 disk drives, card I/O, and 
a plotter. 

The system can take advantage of extra core up to 
100K for storing strings, a disk drive for storing the 
interpreter, and a printer for SYSP0T output. 

E. SNOBOL 3 WAS COMPILED ON SPS II-D 

Note: The G0T0 slash is recognized by the fact that 
it is the only slash which has a blank before it and a non- 
blank character after it. 

Note: In case a check stop occurs (usually because of 
an overlap condition), insert a branch to OO796 to go onto 
the next program. 
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F. SNOBOL NUMBERED SRR0R MESSAGES 



ERR0R 01 - PROGRAM INTERRUPTED BY OPERATOR 

02 - IMPROPER GROUPING 

03 - MISSING STRING NAME 

04 - IMPROPER STRING NAME 

05 - IMPROPER REFERENCE STRING 

06 - IMPROPER CONSTRUCTION SPECIFICATION 

07 - IMPROPER FILLER STRING 

03 - GROUPING NESTED DEEPER THAN 10 

09 - INTEGER EXCEEDS 10 DIGITS 

10 - UNDEFINED STATEMENT LABEL 

11 - INCORRECT SUBROUTINE CALL 

12 - IMPROPER GO TO SPECIFICATION 

13 - FUNCTION FAILURE IN GO TO 

14 - IMPROPER FILLER SPECIFICATION 

15 - ERROR IN SNOBOL INTERPRETER 



-T I TI F A_ S AMP LE SNQBQL PROGRAM 

-PCC 

-I 1ST 



* 
* 


ALPHABETIZATION USING A RADIX SORT TECHNIQUE 

RFAH THF NUMBER OF COLUMNS TO BE SORTED OM 


* 


SYSPIT *SZ* @ t 
READ THE LIST OF WORDS TO RE ALPHARFTI 7FH 




SYSPIT * LT* @ @ 
DEFINE ALPHARFTI 7 1 MR SFQHFNr.F 


1 


AL = §. ABCDEFGHI dKLMNQPQRSTUVWXYZd 
DECREASE SZ BY ONE 




SZ = SZ - @li 
IF SZ IS NEGATIVE, WE ARE FINISHED 




SZ @-@ /S(F) 
TAKE NEXT WORD FROM LIST - GO TO RE COMB 1 NE WORns flN faiiiirf 


3 


LT *WD* @,g = /F(6) 
PUT A PERIOD IN * 




*■§.#■ 
BYPASS FIRST SZ LETTERS IN WD AND PUT NEXT LETTER IN * 


* 


IF THIS STATEMENT FAILS (NO MORE THAN SZ LETTERS IN WD) THEN * WILL 
RETAIN ITS CONTENTS OF §.i 


* 


WD *HD/SZ* 
ADD WORD INTO THE INDIRECT * POCKET - GO BACK FOR NEXT WORD 


* 


$* = $* WD ' /(3) 
TAKE OFF NEXT LETTER - GO BACK FOR NEXT COLUMN ON FAILURE 


6 
* 


AL **/6ie*'« /F(l) 
PLACE INDIRECT * LIST BACK INTO LT 


* 


LT = LT $! 
DELETE INDIRECT * STRING AND GO BACK FOR l£XT LETTER 




EP *$** /(6) 
PRINT ALPHABETIZED LIST 


> SYSPOT = LT 
*THATS ALL FOLKS 


END 


ALIBI , ARE, ARM, ARMORY, ARMY, GLOBAL, G LOBE, TENSOR, TEST, 
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SN0B3L - A 
STRING RANIPULRTIDN 
LANGUAGE 



READ A 
CARD 
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check; FDR 


LEGAL 


LABEL 
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PUT STATEHENT IN 


SYMBOL 


TABLE 



PICK UP FUNCTIONS 
USED> IF BNV, BY 
THE STATEMENT 



TO IS 
SOUEEZ 






CONTRL 12 




PROCESS 


> 


CDNTRDL 




CARD 



TO 1 
RERD 





PROCESS 
CONTINUATION CARD 




SOUEEZ 

68UEEZE OUT EXTRA 
BLANKS > CHECH FOR 
BALANCED • AND C) 




GET FUNCTIONS 
CALLED FRO* DISK , 



60 TO TABLE \ 

LOOKUP \ 

SUBROUTINE TO > 

FIND STATEMENT / 
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SET 
SUCCESS 
DIGIT OFF 



TD 113 
FIND / 




JTPUT ERROR 
NESSPSE 



FLOW CHARTING 
SYSTEP + CROSS 
REFERENCE LISTER 



UERE PROGRAMS BV 
CRPIG PPCRENNfl 




S 

BVPPSS 205 

BVPPSS THIS 00 TO 
SPECIFICATION 



TD 210 
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GO TD TABLE 

LOOKUP 
SUBROUTINE 



GOTO INTEGER 
EUALUATION \ 
ROUTINE / 



PLACE NEW STRING ON 
END OF CONSTRUCTION 



CARRY OUT 
ARITHMETIC 
OPERATION 





The following is the last half of Bell Labs' description 
of the scanning algorithm. 



2. The Scanning Algorithm 

This section describes in detail an algorithm to achieve 
the pattern matching according to the rules given in 
Section 1.3. The total number of possible matches for pattern 
elements may grow quickly as the number of pattern elements or 
the length of the string increases. Clearly the greatest 
number of attempts will be made when the pattern fails to 
match. In applications such as SNOBOL, where the matching is 
done frequently, the efficiency of the scanning algorithm is 
critical. Consequently short cuts have been Introduced. 
Weights associated with pattern elements are introduced to 
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detect early in the matching process situations in which the 
string is too short to satisfy the requirements of the remain- 
ing pattern elements. 

The situation that exists when a pattern element 
fails to match is used to bypass attempts at matches that 
would necessarily fail. The scanner is organized so that the 
complex mechanism required for matching balanced or back- 
referenced elements does not affect the efficiency of the 
scanner until these types of elements are encountered. Other 
short cuts will be described in appropriate places in the 
following sections. 
2.1 Notation 

(i) The pattern to be matched is denoted by 

E l E 2 ••• E n 
where E 1 refers to the i th pattern element 
and 



A 


for 


an arbitrary string variable 


B 


for 


a 


balanced string variable 


F 


for 


a 


fixed-length string variable 


K 


for 


a 


constant 


R 


for 


a 


back-referencing constant 



If E, = R, the element back referenced by is denoted by 
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c 



o 



E^*. When it is necessary to indicate that a string variable 
is back referenced, it is written E*. 

(ii) The string to be matched is denoted by 

c l c 2 C m 
when Cj is the j tn symbol in the string, 
(iii) The pointer p ± is the index of the first symbol 
in the substring matching E^. 
2.2 Weights 

A weight r^ is assigned to each E^ corresponding to the 
length of the shortest acceptable value of E^ Thus 

if E i = A 

1 if Ej_ = B 

r^ = length of the constant if E^ = K 

specified length if E^ = F 
r i+ if E i = R 

The minimum length of the string to match pattern elements 

E, ... E is 

1 n 



w i = I r 



n 



2.3 Augmented Pattern 

To simplify the scanning algorithm and facilitate the 
handling of pointers, two dummy arbitrary string variables are 
added to the pattern. One is added to the beginning and one 
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to the end. The scanner operates on this augmented pattern 

E h ••• E n Vl 
Since the arbitrary string variable E Q can always be extended, 
no special mechanism is necessary to handle rule 1. 

The dummy arbitrary string variable E n+1 merely 
provides the pointer p n+1 which determines the end of the 
substring matching E n - 

2A ftA«la Btracturft ttf Scanner 

In general when an attempt is being made to match Ej_ 
the pointer p t has already been determined. A successful 
match for E t yields a value for p 1+r Thus the pointers p t 
and p 1+1 identify the substring matching E 1 . 

Initially, according to rules 1 and 2, the void 
substring beginning at the first symbol of the string is 
assigned to E . This is accomplished by setting 

P = Pi = 1 

Having assigned the void substring to E Q , an attempt 
is made to match E 1 starting at the Pl -st symbol of the 
string. The match then proceeds according to rules 2, 3, and 
h. Figure 1 illustrates the general structure of the scanner. 
The remainder of Section 2 describes the details of the 
algorithm for handling rule 3 2 and 3« 
2.5 Algorithm for Rule 2 

Before an attempt is made to match E ± the first time, 
a size test is made to assure that the string satisfies the 
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minimal length requirements of the pattern. This test is 
satisfied if 

< m 

o 

In general the minimal requirements of E ± ... E n+1 are satis- 
fied if 

p i " 1 + w i - m 
Otherwise a size failure occurs. 

After the initial size test has been made, further 
size tests are necessary only when the length of a substring 
assigned to is greater than t^. 

According to rule 2 pointers are assigned to E i as 

follows : 

(1) A: p 1+1 = v i (assigning the void substring) 

(2) F: p 1+1 = 

(3) K: If C ... C , is the acceptable value of 

Pi p i i 

E 1 , then p i+1 = V^r^ Otherwise a match failure 

for E i occurs. 

(h) R: Let s be the length of the string currently 

assigned to E^* (s = P 1 * +1 - Pj^*) • If Pj_ + s > m 

a size failure occurs. If C_ ... C is the 

Pj_ Pj_ TS -*- 

same as the substring currently matching E^, then 

p ^ = Pj+s. Otherwise a match failure occurs. 

(5) B: If C is not a parenthesis, p., = p i +l. If 
P^ 

C is a right parenthesis, a match failure occurs. 
p i 
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Otherwise a parenthesis count is made to assign the 
shortest balanced substring to If no balanced 

substring beginning at C can be found, a match 
failure occurs. The details of the method of find- 
ing the length s of the shortest balanced string 
beginning at Cj are given in Figure 2. 
The flow chart for the algorithm for rule 2 is given 
in Figure 3-. The setting of the S flag is required for the 
application of rule 3 as will be explained later. 

Note that it is necessary to apply a size test only 
after matching a B or R. 
2.6 Al gorithm for Rule 3 

Efficiencies are introduced into the algorithm for 
rematching (rule 3) by considering separately the types of 
failures that occur. 

2.6.1 Matcjb Failure 

A match failure for E. can occur if E i equals K, 
B, or R. According to rule 3 an attempt is to be made to 
rematch the preceding element E^ by extending its matching 
substring. However, if equals F, R, or K, no extension 

can be made. This is equivalent to a match failure for E i _ r 
Therefore, the index i is decremented until E. 

t> t-p v — A qpt d , = P.. i + l and return to 
equals A or B. If - A, set p i+1 

rule 2. If E. = B, the rematch for E. is obtained by 
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appending the shortest balanced substring starting at C 

p i+l 

to the substring currently matching The length s of 

this balanced substring is obtained by the method described 
in Figure 2 and p 1+1 is set equal to p 1+] +s-l. Then return is 
to rule 2. The flow chart of the algorithm for a match fail- 
ure is given in Figure h. 
2.6.2 Size Failure 

A. size failure at E^^ occurs if the number of sym- 
bols remaining in the string is insufficient to satisfy the 
minimal requirements of the elements remaining to be matched. 
The pattern match can succeed only if shorter substrings can 
be assigned to previous elements. Although application of 
rule 3 can only lengthen matching substrings, the substrings 
assigned to subsequent elements may be shortened as a result. 

If the S flag has not been set, only A, K, or F 
elements have been matched. No attempt to extend an A element 
can result in a shorter match because the matches made before 
the occurrence of the size failure have exhausted the possi- 
bilities of a shorter match. Hence the pattern match fails. 

If the S flag is set, a shorter substring matching 

E„ ... E. can be obtained only if a shorter match can be found 
o i 

for a B or A* (i.e., a back-referenced A) element. Thus, in 
applying rule 3 the index i is decremented until is B or 
A*. A B element E, may match a shorter substring if its 
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initial pointer Pl is increased by rematching an element 
previous to E r A shorter match for an A* may be obtained in 
the same way, yielding a shorter value for the corresponding 
R element. Since a pattern match cannot succeed with the 
current value of Pi , a match failure for E ± exists. The flow 
chart of the algorithm for handling size failure is given in 
Figure 5« 
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2.7 Flow Chart of the Scanner 

The method of matching patterns according to rules 1-3 
has been described in the previous sections. Using the flow 
charts already introduced, the flow chart for the complete 
scanner is shown in Figure 6. Details concerning initializa- 
tion and extending a terminal A element (rule K) are included. 
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03962 


24 


13979 


03877 


01670 


PLACE 


DS 


.CHECK+ll 




03877 


00000 




01680 




BNE 


CN88 




03974 


47 


04430 


01200 


01690 




AM 


rK2+8,l,l0 




03986 


11 


04746 


00001 


01700 




TF 


SUBCHK, PLACE 




03998 


26 


04033 


03877 


01710 




SM 


SUBCHK ,2,10 




04010 


12 


04033 


00002 


01720 




C 


C40t-SUBCHK ,, 


.CHECK IF SUBROUTINE CALL 


04022 


24 


03293 


04033 


01730 


SUBCHK 


OS 


t« 




04033 


00000 




01740 




BH 


0K2+12 t, 


,N0 BRANCH OUT 


04034 


46 


04750 


01100 


01750 


SBCKLP 


SM 


SUBCHK, 2, 10 ,t 


.COLLECT SUBROUTINE NAME 


04046 


12 


04033 


00002 


01760 




C 


C40. -SUBCHK ,, 


.CHECK FOR NUMBER OR LETTER 


04058 


24 


03293 


04033 


01770 




BNH 


SBCKLP ,, 


,YES - BACK UP ANOTHER LETTER 


04070 


47 


04046 


01100 


01780 




C 


C03, -SUBCHK ,, 


.CHECK FOR A PERIOO 


04082 


24 


03291 


04033 


01790 




BE 


SBCKLP 




04094 


46 


04046 


01200 


01800 


SBCKOT 


AM 


SUBCHK, 1, 10 




04106 


11 


04033 


00001 


01810 




SF 


—SUBCHK 




04118 


32 


04033 


00000 


01820 




TF 


2218+113, SBCKCL 




04130 


26 


02231 


04359 


01830 




A 


2218+13,-PLACE,, 


RECOVER NAME OF SUBROUTINE 


04142 


21 


02231 


03877 


01840 




CF 


-SUBCHK 




04154 


33 


04033 


00000 


01850 




BNF 


SBCK2.SLINDC 


53 


04166 


44 


04274 


03100 



01860 




C 


2218+11, C56 ,. 


.CHECK FOR FOR NAME OF F , S, 


/, /F, OR /S 


04178 


24 


02229 


13931 


01870 




BE 


CK2+12 






04190 


46 


04750 


01200 


01880 




C 


2218+11, C62 






04202 


24 


02229 


10831 


018<30 




BE 


CK2+12 






04214 


46 


04750 


01200 


01900 




C 


2218+11, C61 






04226 


24 


02229 


07111 


01910 




BE 


CK2+12 






04238 


46 


04750 


01200 


01920 




C 


C61, 2218+9 






04250 


24 


07111 


02227 


01930 




BE 


TK2+12 






04262 


46 


04750 


01200 


01940 


SBCK2 


TFM 


S'JBCK.SUBLST 






04274 


16 


04297 


02323 


01950 




C 


2218+11, -SUBCK,, 


, SEARCH LIST FOR SUBROUTINE 




04286 


24 


02229 


04297 


01960 


SU8CK 


DS 








04297 


00000 




01970 




BE 


SBCKFO 






04298 


46 


04398 


01200 


01980 




AM 


SURCK, 18, 10 






04310 


11 


04297 


00018 


01990 




BNR 


SBCK2+12, -SUBCK 






04322 


45 


04286 


04297 


02000 




RTM 


fcRR 1 , ERRRR6 ,, 


,,TELL THEM YOU DID NOT FIND 


IT 


04334 


17 


03696 


04361 


02C10 


SBCKCL 


DSAC 


7, , 






04359 


00014 




02020 


ERRR*6 


OMES 


,A,NO SUCH SUBROUTINE(E) 




04361 


00040 




02030 




DOPG 


•-1 






04398 








02040 


SRCKFD 


AM 


SUBCK, 1,10 






04398 


11 


04297 


00001 


02C50 




SF 


-SUBCK ,, 


,SET CALLED INDICATOR 




04410 


32 


04297 


00000 


02060 




B7 


CK2+12 






04422 


49 


04750 


00000 


02070 


0N88 


C 


C04, -PLACE 






04430 


24 


14147 


03877 


02080 




BNE 


CN87 






04442 


47 


04590 


01200 


02C0 




SM 


CK2+8, 1,10 






04454 


12 


04746 


00001 


021C0 




BNN 


CK2+12 






04466 


46 


04750 


01300 


02110 




T F " 


CK?+8,-45, 10 






04478 


16 


04746 


00045 


02120 




B7 


CK2+12 






04490 


49 


04750 


00000 


02130 


0K4 


BD 


CK 2 , SPDG 






04498 


43 


04738 


03900 


02140 




TF 


TR+6, CHECK* 1 1 






04510 


26 


04564 


03877 


02150 




SM 


TR + 6, 1 , 10 






04522 


12 


04564 


00001 


02 160 




TF 


TR+ll.CHECK+ll 






04534 


26 


04569 


03877 



5 h 



02170 




AM 


TR + ll, 1, 10 




04546 


11 


04569 


00001 


02180 


TR 


TR 


#— - , »- » 


, , ERADICATE THE BLANK 


04558 


31 


00000 


00000 


02190 




SM 


StARCH + 6,2, 10, 




04570 


12 


03120 


00002 


022C0 




B7 


TK2+24 




04582 


49 


04762 


00000 


02210 


0N87 


C 


C 0021, -PL ACE 


,, .CHANGE GOTO / CODDING TO 61 


04590 


24 


12243 


03877 


02220 




BNE 


CK2+12 




04602 


47 


04750 


01200 


02230 




AM 


PLACE, 2, 10 




04614 


11 


03877 


00002 


02240 




BD 


•♦20, -PLACE 




04626 


43 


04646 


03877 


02250 




B7 


CK2+24 




04638 


49 


04762 


00000 


02260 




BD 


CK2+24.0K2+8 , 


,, BRANCH IF PAREN. COUNT NOT ZERO 


04646 


43 


04762 


04746 


02270 




SM 


"LACE, 3, 10 




04658 


12 


03877 


00003 


022eo 




TDM 


-PLACE, 6 




04670 


15 


03877 


00006 


022^0 




AM 


i -ACE, 3, 10 




04682 


U 


03877 


00003 


023C0 




BNF 


•+24.SLINDC 




04694 


44 


04718 


03100 


02310 




BTM 


ERRl , ERRR2 




04706 


17 


03696 


05173 


02320 




TDM 


SLINDC-l 




04718 


15 


03100 


00001 


023?0 




R7 


CK2+24 




04730 


49 


04762 


00000 


02340 


0K2 


TDM 


SPDG.O 




04738 


15 


03900 


00000 


02350 




AM 


CHECK+11,2, 10 




04750 


11 


03877 


00002 


02360 




BNR 


CHECK, C HE CK+ll 


,11 , , ,CHECK FOR END OF CARD 


04762 


45 


03866 


03877 


02370 




TFM 


ERR 1- 1 , ERRRR 3 




04774 


16 


03695 


05197 


02380 




BD 


ERRU0K2 + 11 


,,,ERURR IF • NO BALANCED 


04786 


43 


03696 


04749 


02390 




TFM 


ERR 1- 1 , ERRRR4 




04798 


16 


03695 


05223 


02400 




BD 


ERRU0K2 + 8 ,, 


, BRANCH IF PARENTHESIS UNBALANCED 


04810 


43 


03696 


04746 


02410 




CM 


SEARCH+6, INPUT+6 


04822 


14 


03120 


02771 


02420 




BNH 


OK 


,, .CHECK FOR END CARD 


04834 


47 


03756 


01100 


02430 




C 


INPUT+6, END 




04846 


24 


02771 


05287 


02440 




BNE 


OK 




04858 


47 


03756 


01200 



02450* 

02460*»«««* 

02470* 



ANALIZE END CARD 



55 



COMPUTER 
TECHNOLOGY 



02480 


ENDC 


BTf* 


EJECT, **i2 




04870 


17 


12400 


04882 


02490 




BO 


796, ER 




04882 


43 


00796 


03742 


025C0 




SM 


PAST, 10, 10 




04894 


12 


03548 


00010 


02510 




TF 


-PAST,CURENT 




04906 


26 


03548 


05130 


02520 




TF 


LISTS, PAST 




04918 


26 


06857 


03548 


02530 




TF 


EPROG, CURRNT ,,,SAVE END OF PROGRAM 




04930 


26 


10881 


03762 


02540 




SM 


PAST*10,10 ...SET TRAILER ENTRY FOR STRING 


SYMBOL TABLE 


04942 


12 


03548 


00010 


02550 




TO 


-PAST.RMARK 




04954 


25 


03548 


02925 


02560 




TFN 


PLACE, INPUT*8 




04966 


16 


03877 


02773 


02570 




BLC 


• ,,,TURN OFF LAST CARD INDICATOR 




04978 


46 


04978 


00900 


02580 




TF 


434 , CURRNT ,,,MOVE NEXT AVAL. CORE TO HIGH 


INDIC. 


04990 


26 


00434 


03762 


02590 




TFM 


SUBCLL + U.SUBLST+1 




05002 


16 


05025 


02324 


02600 


SUBCLL 


TR 


SUBCL,*-* ,,,MOVF IN DIM NUMBER 




05014 


31 


05060 


00000 


02610 




BNF 


SBCLAR, SUBCL ,, .BRANCH AROUND IF ROUTINE NOT 


CALLED 


05026 


44 


05078 


05060 


02620 




TFP 


565,»+19 ,,,CALL LOAD THE SUBROUTINE 




05038 


16 


00565 


05057 


02630 




87 


716 




05050 


49 


00716 


ooooo 


02640 




DSC 


3,320 




05057 


00003 




02650 


SUBCL 


DSC 


5,0000' 




05060 


00005 




02660 




TR 


SUBCLL+11,416, 6, MOVE IN EXECUTION ADDRESS 




05066 


31 


05025 


00416 


02670 


SBCLAR 


AM 


SUBCLLU1, 18, 10 ...MOVE TO NEXT ENTRY 




05078 


11 


05025 


00018 


02680 




BNR 


SUBCLL, SUBCLL+ll, 11, END OF TABLE CHECK 




05090 


45 


05014 


05025 


02690 




TF 


CURRNT, 434 ,,,UP DATE CURRENT HIGH CORE 




05102 


26 


03762 


00434 


027C0 




B7 


G089 




05114 


49 


05288 


OOOOO 


02710* 


















02720* 


















02730 


CURbNT 


DC 


10,0 




05130 


00010 




02740 


QUENT 


DC 


10,9 




05140 


00010 




02750 


ERRRR 


DMES 


, A, ERROR IN LABEL ( E > 




05143 


00032 




02760 




DORG 


•-1 




05172 








027 70 


ERRR2 


DMES 


, A, INCORRECT /(F) 




05173 


00026 




02780 




DORG 


- l 5 6 




05196 








02790 


EPRRR3 


DMES 


,A,' UNBALANCED! E ) 




05197 


00028 




02800 




DORG 


•-1 




05222 








02810 


ERRRR4 


DAC 


14, () UNBALANCED' , 




05223 


00028 




02820 


ERRRR5 


DMES 


, A, REPEATED LABEL ( E ) 




05251 


00032 




02830 




DORG 


• -1 




05280 








02840 


END 


DSAC 


4 ..END , 




05287 


00008 




02850* 






















DECODE FIRST VARIABLE, CHECK FOR EQUAL SIGN 












02870* 


















02880 


GC89 


SM 


PAST, 10, 10 




05288 


12 


03548 


00010 


02890 




TF 


CUENT-5, CURRNT 




05300 


26 


05135 


03762 


029C0 




AM 


CUENT-5,9, 10 




05312 


11 


05135 


00009 


02910 




TF 


-PAST, QUENT 




05324 


26 


03548 


05140 


02920 




SM 


PASW10, 10 




05336 


12 


03548 


OOOIO 


02930 




TR 


-CURRNT, QUOTE-1,, .CREATE STRING CONTAING QUOTE 


( • ) 


05348 


31 


03762 


17852 


02940 




AM 


CURRNT, 14, 10 




05360 


11 


03762 


00014 


02950 




TF 


CURENT-5, CURRNT 




05372 


26 


05125 


03762 


02960 




TF 


-PAST.CURENT 




05384 


26 


03548 


05130 


02970 




BNR 


• ♦32, INPUT*6 




05396 


45 


05428 


02771 


02980 




TFM 


PLACE , LAST- 2 ,,,N0 - START WITH FIRST STATEMENT 


05408 


16 


03877 


17867 


02990 




B7 


YEAH2 




05420 


49 


10774 


OOOOO 


03000 




B TP 


LOOK UP,*+12 




05428 


17 


07962 


05440 


03010 




TF 


PLACE, PLACE2 




05440 


26 


03877 


06341 


03020 


GOTO 


TF 


PL8, PLACE 




05452 


26 


12011 


03877 


03030 




BNC1 


COLE . . .CHECK IF TRACE SWITCH IS ON 




05464 


47 


05536 


00100 


03040 




TF 


WTY<>1 1 ,,PLACE 




05476 


26 


05535 


03877 


03050 




SM 


WTY+11, I, 10 




05488 


12 


05535 


00001 


03060 




BNF 


*-12,-WTY-ll 




05500 


44 


05488 


05535 


03070 




AM 


WTY+11, 1, 10 




05512 


11 


05535 


00001 


03060 


MTY 


BTM 


WATY,*-* 




05524 


17 


12226 


OOOOO 


03090 


COLE 


BNC2 


•♦24 », , CHECK THE INTERRUPT SWITCH 




05536 


47 


05560 


00200 



57 



03100 




BTM 


ERROR, 07100 






05548 


17 


11844 


07100 


03110 




TF 


CURRT2, CURRNT 






05560 


26 


06329 


03762 


03120 




C 


C61, -PLACE 






05572 


24 


07111 


03877 


03130 




BE 


6RANHS 






05584 


46 


10774 


01200 


03140 




C 


C24,-PL ACE ,,. 


CHECK FOR A CONTRUCTED REFERENCE STRING 


05596 


24 


13979 


03877 


03150 




BE 


CHNI 






05608 


46 


17688 


01200 


03160 




BTM 


LUOK2,»+12 






05620 


17 


08190 


05632 


03170 


OHM Y 


TF 


V ,LSTR3 






05632 


26 


15517 


02232 


03180 




SM 


10 






05644 


12 


15517 


00001 


03190 




TF 


THERE, LK RET 






05656 


26 


13170 


06281 


032CO 




TF 


k«CRK 1+'J,M 






05668 


26 


13590 


15517 


03210 




SM 


THERE, 1, 10 






05680 


12 


13170 


00001 


03220 




TF 


ERP+9+21, THERE 






05692 


26 


13191 


13170 


03230 




BNR 


•♦20, -PLACE 






05704 


45 


05724 


03877 


03240 




H7 


YEAH2 






05716 


49 


10774 


00000 


03250 




C 


COO , -PLACE 


CHECK FOR A BLANK 




05724 


24 


03135 


03877 


03260 




BNE 


• ♦24 






05736 


47 


05760 


01200 


03270 




AM 


PLACE, 2, 10 






05748 


11 


03877 


00002 


032P0 


C33 


DAC 


l,=,»-2 






05757 


00002 




03290 




C 


C33.-PLACF; 






05760 


24 


05757 


03877 


033C0 




BE 


CONST 






05772 


46 


09942 


01200 


03310 




C 


C6 1 ,-PLACE 






05784 


24 


07111 


03877 


03320 




BE 


BRANHS 






05796 


46 


10774 


01200 


03330 




B7 


3 CAN 


BRANCH TO NEW SCAN ROUTINE 




05808 


49 


13602 


00000 


03340 


CURRNT 


OS 


,0K + 6 






03762 


00000 




03350« 




















03360* 




ROUTINE TO EVALUATE 


- INCLUDES THE ARITHMETIC OPERATIONS 










03370* 


















3360 




DSA 


LR90 






05819 


00005 16964 


03390 


PUSH2 


OSAC 


50, 






05919 


00100 




034C0 




DC 


U' 






05920 


00001 




03410 




OS 


5 






05925 


00005 




03420 


EVAL 


TR 


PUSH2 - 99.PUSH2- 


89 




05926 


31 


05820 


05830 


03430 




TF 


PUSH2 i EVAL- 1 ,, 


PUSH2 TO IS A PUSH DOWN LIST 


WITH 


05938 


26 


05919 


05925 


03440 




CF 


PUSH2-4 ,, 


A GROUP OF RETURN ADDRESSES 


AND 


05950 


33 


05915 


00000 


03450 


1NEXT 


DS 


y * 






05961 


00000 




03460 




TF 


PUSH2-5,CURRT2, , , 


POINTERS TO THE OUTPUT AREA 




05962 


26 


05914 


06329 


03470 




CF 


KJSH2-9 






05974 


33 


05910 


00000 


03480 




AM 


PLACE, 2, 10 






05986 


11 


03877 


00002 


03490 




BNR 


OBL, -PLACE 






05998 


45 


06102 


03877 


03500 


RET9 


TR 


-CURRT2.DSC00+2, 


SET TRAILER RECORD MARK 




06010 


31 


06329 


07251 


03510 




AM 


CURRT2.2, 10 






06022 


11 


06329 


00002 


03520 




9F 


PUSH2-9 






06034 


32 


05910 


00000 


03530 


CL AST 


DS 


»* 






06045 


00000 




03540 




TF 


CL AST , PUSH2-5 , 


,PULL UP PUSH DOWN LIST 




06046 


26 


06045 


05914 


03550 




SF 


PUSH2-4 






06058 


32 


05915 


00000 


03560 




TF 


•+30.PUSH2 






06070 


26 


06100 


05919 


03570 




TF 


PUSH2,PUSH2-10 






06082 


26 


05919 


05909 


03580 




B7 


«— • 






06094 


49 


00000 


00000 


03590 


CBL 


C 


COO, -PLACE ,, 


CHECK FOR BLANK 




06102 


24 


03135 


03877 


03600 




BNE 


CN9 






06114 


47 


06138 


01200 


03610 




AM 


PLACE, 2,10 






06126 


11 


03877 


00002 


03620 


0N9 


C 


C04, -PLACE ,, 


CHECK FOR ) 




06138 


24 


14147 


03877 


03630 




BE 


RET9 






06150 


46 


06010 


01200 


03640 




C 


C61, -PLACE 






06162 


24 


07111 


03877 


03650 




BE 


RET9 






06174 


46 


06010 


01200 


03660 




C 


C23, -PLACE 






06186 


24 


07043 


03877 


03670 




BE 


RET9 






06198 


46 


06010 


01200 


03*60 


tKUP 


BTM 


LOOK2,*+12 






06210 


17 


08190 


06222 


03690 




TF 


CF8+6.CURRT2 






06222 


26 


16810 


06329 


03700 




SM 


LSTR3,i,10 






06234 


12 


02232 


00001 


03710 




S 


CURRT2.LKRET 


51) 




06246 


22 


06329 


06281 



03720 




A 


CURRT2.LSTR3 




06258 


21 


06329 


02232 


03730 




SF 


-LKRET 




06270 


32 


06281 


00000 


03740 


LKRET 


DC 


5,0, • 




06281 


00005 




03750 




C 


L;;RET,LSTR3 




06282 


24 


06281 


02232 


03760 




BH 


• ♦24 , 


,AVI0D MOVING A NULL STRING 


06294 


46 


06318 


01100 


037 70 




TF 


-CURRT2,-LSTR3 




06306 


26 


06329 


02232 


03760 




CF 


-CF8-6 




06318 


33 


16810 


00000 


03790 


CURRT2 


DC 


5,0, • 




06329 


00005 




038C0 




CF 


-LKRET 




06330 


33 


06281 


00000 


03810 


PLACE2 


OC 


5,0, • 




06341 


00005 




03820 




AM 


CURRT2,3, 10 




06342 


11 


06329 


00003 


03830 


C14 


AC 


l,»,»-2 




06351 


00002 




03840 


JI0N7 


SM 


CURRT2, ?, 10 




06354 


12 


06329 


00002 


03850 


C21 


DAC 


l,/,»-2 




06363 


00002 




03860 




BNR 


•♦20, -PLACE 




06366 


45 


06386 


03877 


03870 




B7 


RF.T9 




06378 


49 


06010 


00000 


03880 


QBL2 


C 


COO, -PLACE , 


,,SKIP BLANKS 


06386 


24 


03135 


03877 


03890 




BNE 


CN10 




06398 


47 


06422 


01200 


039CO 




AM 


PLACE ,2, 10 




06410 


11 


03877 


00002 


03910 


CIO 


OAC 


1 , ♦ , »-2 




06419 


00002 




03920 


tMO 


C 


CIO, -PLACE , 


, .CHECK FOR + 


06422 


24 


06419 


03877 


03930 




BE 


ADD 




06434 


46 


06526 


01200 


03940 




C 


C20, -PLACE , 


.♦CHECK FOR - 


06446 


24 


07019 


03877 


03950 




BE 


SUB 




06458 


46 


06546 


01200 


03960 




C 


C!4, -PLACE , 


. » CHfcCK FOR * 


06470 


24 


06351 


03877 


03970 




BE 


MUL 




06482 


46 


06566 


01200 


03980 




C 


C21, -PLACE , 


. . CHECK FOR / 


06494 


24 


06363 


03877 


03990 




BE 


CIV 




06506 


46 


06634 


01200 


040CO 




B7 


CN9 




06518 


49 


06138 


00000 


04010 


»CD 


TFM 


EVRET , ADD2 , 


, ,SET UP CORRESPONDING RETURN 


06526 


16 


06900 


06902 


04020 




B7 


EV 




06538 


49 


06646 


00000 



Go 



040 30 


SUB 


TFP 


EVRET ,SUB2 


06546 


16 


06900 


06922 


04040 




B7 


EV 


06558 


49 


06646 


00000 


04050 


mjL 


TFM 


EVRET ,MUL2 


06566 


16 


06900 


06942 


04060 




AM 


PLACE, 2, 10 


06578 


11 


03877 


00002 


04070 




C 


C 14,-PLACC ,, .CHECK FOR •« 


06590 


24 


06351 


03877 


04060 




BNE 


EV*12 


06602 


47 


06658 


01200 


04090 




TFM 


EVRET, EXP2 


06614 


16 


06900 


07010 


04100 




87 


EV 


06626 


49 


06646 


00000 


04110 


DIV 


TFf 


cVRET ,DIV2 


06634 


16 


06900 


07194 


04120 


EV 


AM 


PLACE, 2, 10 


06646 


11 


03877 


00002 


04130 


C70 


OAC 


1,0, »-2 


06655 


00002 




04140 




TF 


CURRT2 ,CF 8 +6 


06658 


26 


06329 


16810 


04150 




BTM 


INT,»+12 


06670 


17 


07566 


06682 


04160 




BNR 


•♦20, -PLACE 


06682 


45 


06702 


03877 


04170 




B7 


ER9 


06694 


49 


07802 


00000 


04180 




TR 


PUSH9-149.PUSH9-134 


06702 


31 


17490 


17505 


04190 




TF 


PUSH9- 10, EVRET 


06714 


26 


17629 


06900 


04200 




CF 


PUSH9-14 


06726 


33 


17625 


00000 


04210 


NEXT 


DC 


5,0, • 


06737 


00005 




04220 




TF 


PUSH9, INTRET 


06738 


26 


17639 


17431 


04230 




CF 


PUSH9-9 


06750 


33 


17630 


00000 


04240 




C 


COO, -PLACE 


06762 


24 


03135 


03877 


04250 




BNE 


• ♦24 


06774 


47 


06798 


01200 


04260 




AM 


PLACE, 2,10 


06786 


11 


03877 


00002 


04270 


C13 


DAC 


l,S,«-2 


06795 


00002 




04280 




BTM 


LOOK2,»*;12 


06798 


17 


08190 


06810 


04290 




BTM 


INT,»*12 


06810 


17 


07566 


06822 


043CO 




SF 


PUSH9-9 


06822 


32 


17630 


00000 


04310 


KSP 


DC 


5,0,* 


06833 


00005 




04320 




TF 


10.PUSH9 


06834 


26 


00010 


17639 


04330 




SF 


PUSH9-14 t> ! 


06846 


32 


17625 


00000 



04340 


LISTS 


DC 


5,0,* 






06857 


00005 




04350 




TF 


EVRET , PUSH9- 


10 




06858 


26 


06900 


17629 


04360 




TF 


PUSH9,PUSH9- 


15 




06870 


26 


17639 


17624 


04370 




BV 


. 






06882 


46 


06882 


01400 


04380 




B7 


#— » 






06894 


49 


00000 


00000 


04390 


EVRET 


OS 


f « 






06900 


00000 




044C0 


ADD2 


A 


10, INTRET 






06902 


21 


00010 


17431 


04410 




87 


FINAR 






06914 


49 


07242 


00000 


04420 


SUB2 


S 


10, INTRET 






06922 


22 


00010 


17431 


04430 




B7 


FINAR 






06934 


49 


07242 


00000 


04440 


MUL2 


M 


10, INTRET 






06942 


23 


00010 


17431 


04450 




SF 


90 






06954 


32 


00090 


00000 


04460 




TF 


10,99 






06966 


26 


00010 


00099 


04470 




CM 


89,0, 10 






06978 


14 


00089 


00000 


04480 




BNE 


ER9 






06990 


47 


07802 


01200 


04490 




BT 


FINAR 






07002 


49 


07242 


00000 


04500 


EXP2 


CM 


INTRET, 0, 10 






07010 


14 


17431 


00000 


04510 


C20 


OAC 


I,-,*- 2 






07019 


00002 




04520 




BNL 


EXP3-24 






07022 


46 


07078 


01300 


04530 




CM 


10,0, 10 






07034 


14 


00010 


00000 


04540 


C23 


OAC 


l..,»-2 






07043 


00002 




04550 




BE 


ER9 






07046 


46 


07802 


01200 


04560 




TF 


10, ZERO 






07058 


26 


00010 


17441 


04570 




B7 


F INAR 






07070 


49 


07242 


00000 


04580 




TF 


20, 10 






07078 


26 


00020 


00010 


04590 




TF 


10, ONE 






07090 


26 


00010 


17451 


04600 


EXP3 


SM 


INTRET, 1,10 




, , .DECRIM^NT BY ONE 


07102 


12 


17431 


00001 


046 10 


C61 


DC 


2,61, «-2 






07111 


00002 




04620 




BL 


f INAR 






07114 


47 


07242 


01300 


04630 




M 


10,20 






07126 


23 


00010 


00020 


04640 




SF 


90 




£ 


07138 


32 


00090 


00000 


04650 


PL2 


OS 


, * 






07149 


00000 




04660 




CM 


89,0, 10 






07150 


14 


00089 


00000 


04670 




BNE 


tR9 






07162 


47 


07802 


01200 


04680 




TF 


10,99 






07174 


26 


00010 


00099 


04690 




B7 


FXP3 






07186 


49 


07102 


00000 


047C0 


DIV2 


LU 


99, 10 




,,,THE DIVISION ALGORITHM 


07194 


28 


00099 


00010 


04710 




D 


90, INTRET 






07206 


29 


00090 


17431 


04720 




TF 


10,89 






07218 


26 


00010 


00089 


04730 




BV 


FAILED 




,, .BRANCH IF DIVISION BY ZERO 


07230 


46 


07914 


01400 


04740 


FINAR 


CF 


FLAG 




,, .FINISH AR I THEMET I C OPERATION 


07242 


33 


07314 


00000 


04750 


OSCOO 


DSC 


4,000* ,»-4 






07249 


00004 




04760 




BV 


ER9 






07254 


46 


07802 


01400 


04770 




BNF 


FLAG* 12,10 




, , , THAT IS MF FLAG, 10 


07266 


44 


07326 


00010 


04780 




CF 


10 






07278 


33 


00010 


00000 


04790 




CM 


10,0,1011 






07290 


14 


00010 


00000 


04800 




BZ 


• ♦24 




,,,AVIOD CODING A NEGATIVE ZERO 


07302 


46 


07326 


01200 


04810 


FLAG 


SF 


FLAG 






07314 


32 


07314 


00000 


04820 




TF 


80, MASK 






07326 


26 


00080 


17473 


04830 




TFM 


Z+6,80 






07338 


16 


07404 


00080 


04840 




TF 


20, 10 






07350 


26 


00020 


00010 


04850 




TFM 


10,0 






07362 


16 


00010 


00000 


04860 




CF 


11 






07374 


33 


00011 


00000 


04870 




TFM 


Z+11,20 






07386 


16 


07409 


00020 


04860 


2 


TD 


•— » , »— • 




,,NOW FOR A TNF 


07398 


25 


00000 


00000 


04890 




SM 


Z+6,2, 10 






07410 


12 


07404 


00002 


04900 




SM 


Z«ill,l,l0 






07422 


12 


07409 


00001 


04910 




CM 


Ztll, 0,610 






07434 


14 


07409 


00000 


04920 




BNE 


z 




,,,NON - ZERO, TAKE OFF ANOTHER DIGIT 


07446 


47 


07398 


01200 


04930 


JI0N8 


BNF 


*«!36»FLAG 






07458 


44 


07494 


07314 


04940 




TFM 


Z+:6, 20,67 






07470 


16 


07404 


00020 


04950 




SM 


Z+6,2, 10 




6 3 


07482 


12 


07404 


00002 



04960 


AM 


l*t>, 1, 10 


07494 


11 


07404 


00001 


04970 EXTRA 


TR 


»1,RMARK-1 


07506 


31 


00081 


02924 


04980 E 


TR 


-CURRT2.-Z-6 


07518 


31 


06329 


07404 


04990 


S 


CURRT2,Z*6 


07530 


22 


06329 


07434 


050C0 


AM 


CURRT2 ,81,10 


07542 


11 


06329 


00081 


05010 


B7 


RET9-12 


07554 


49 


05998 


00000 


05020* 


EVA 


1 'JATE INTERGER 










05030 


OS 


'3 


07565 


00005 




05040 INT 


TFM 


CNNST-10,0 


07566 


16 


17650 


00000 


05050 


TFM 


PINT.CNNST-10 


07578 


16 


07673 


17650 


05060 


CF 


FLAG 


07590 


33 


07314 


00000 


05070 


AM 


LKRET, 1,10 


07602 


11 


06281 


00001 


05080 BK82 


C 


LKRET, LSTR3 


, , , CHECK FOR END OF STRING 07614 


24 


06281 


02232 


05C90 


BNH 


CN28 


07626 


47 


07730 


01100 


05100 


TF 


INTRET iZERO 


07638 


26 


17431 


17441 


05110 


SM 


f- INT, 1 , 10 


07650 


12 


07673 


00031 


05120 


A 


INTRET, -PINT 


07662 


21 


17431 


07673 


05130 PINT 


DS 


» * 


07673 


00000 




05140 


C 


-PINT, INTRET 


,, .CHECK FOR EXCEEDING 10 DIGITS 07674 


24 


07673 


17431 


05150 


BNE 


ER9 


07686 


47 


07802 


01200 


05160 


BNF 


• ♦'24,FLAG 


07698 


44 


07722 


07314 


05170 


SF 


INTRET 


07710 


32 


17431 


00000 


05160 


B7 


INT-I , ,6 


07722 


49 


07565 


00000 


05190 ON28 


C 


C70, -LKRET 


07730 


24 


06655 


06281 


052C0 


BH 


CN83 


07742 


46 


07814 


01100 


05210 


TO 


-PINT, -LKRET 


07754 


25 


07673 


06281 


05220 


AM 


PINT, 1,10 


07766 


11 


07673 


00001 


05230 BK81 


AM 


LKRET, 2, 10 


07778 


11 


06281 


00002 


05240 


RNP 


"K82,-PINT 


07790 


45 


07614 


07673 


05250 ER9 


BTP 


ERROR, 7900 


07802 


17 


11844 


07900 


05260 GN03 


C 


olO, -LKRET 


(] / ( 07814 


24 


06419 


06281 



05270 


BE 


TBK8 1 




07826 


46 07902 


01200 


052€0 


C 


C20, -LKRET 




07838 


24 07019 


06281 


05290 


BNE 


FAILED 




07850 


47 07914 


01200 


053C0 


bNF 


« +.20, FLAG 




07862 


44 07882 


07314 


05310 


B7 


FA ILED 




07874 


49 07914 


00000 


05320 


SF 


FLAG 




07882 


32 07314 


00000 


05330 KSTR4 


OS 


, • 




07893 


00000 




05340 


B7 


BK81 




07894 


49 07778 


00000 


05350 TBK81 


BNF 


BK8 1 , FLAG 




07902 


44 07778 


07314 


05360 FAILED 


BNF 


•♦•24.PERMIS-1 




07914 


44 07938 


07970 


05370 


BJf 


ERROR, 17300 




07926 


17 11844 


17300 


05380 


TF 


PLACE, PL8 




07938 


26 03877 


12011 


05390 


B7 


BRANHF 




07950 


49 10794 


00000 


054C0* 














05410*»««»* 




TABLE LOOKUP ROUTINE 










05420****** 




STRINGS ARE IN CORE AS NNNNNNNNBCCCCCCCCCCCCCCCCCCCCCCC 








05430****** 




NNNNNNNN IS THE NAME OF THE STRING 










05440****** 




B IS A BLANK 














CCCCCCCCCCCCCCCCC IS THE CONTENTS OF 


THE STRING 








05460*#*»»* 




THE ONLY FLAG IN THE STRING IS OVER THE 


FIRST 












CHARATER OF THE NAME 














THERE IS A LIST OF ADDRESS OF THE START 


OF STRINGS WURKING 








05490*#«*»* 




COWN FROM THE TOP OF CORE. 










05500*»»»»* 




THE NEXT AVAL. LOCATION FOR A STRING IS 


IN CURRNT 








05510****** 




CURRI2 CONTIANS THE TEMPORAY NEXT AVAL. 


LOCATION 








0552O»**»»» 




PLACE IS THE CURRNT PLACE IN THE SOURCE 


STATEMENT 








05530****** 




PAST CONTIANS THE BOTTOM OF THE LIST OF 


ADDRESSES 








05540* 














05550 


DS 


5 




07961 


00005 




05560 fcOOKUP 


TFM 


PERMIS, 11,1011 




07962 


16 07971 


00011 


05570 tBRMIS 


OC 


3»0,*-2 


65 


07971 


00003 





05580 




TF 


CURRT2.CURRNT 


07974 


26 


06329 


03762 


05590 




BTM 


LOOK2,»*il2 


07986 


17 


08190 


07998 


05600 


PEKMT 


TF 


PLACE2.LKRET 


07998 


26 


06341 


06281 


05610 




TFM 


PERMIS,0,9 


08010 


16 


07971 


00000 


05620 




BNR 


•♦20.PLACE2 


08022 


45 


08042 


06341 


05630 




37 


-LOOKUP*.! 


08034 


49 


07961 


00000 


05640 




AM 


PLACE2, 1, 10 


08042 


11 


06341 


00001 


05650 




BNR 


-LOOKUP+l.LSTR 


08054 


45 


07961 


08629 


05660 


ER10 


BTM 


ERROR, 17000 


08066 


17 


11844 


17000 


05670 




OSA 


ER90 


08082 


00005 16964 


05680 


PUSH4 


OSAC 


50, 


, 08183 


00100 




05690 




DC 


1 


08184 


00001 




057C0 




OS 


5 


08189 


00005 




05710 


LO0K2 


TR 


PUSH4- 99.PUSH4-89 


08190 


31 


08084 


08094 


05720 




C 


CURRT2.PAST ,,, CHECK FOR CORE OVERLAP 


08202 


24 


06329 


03548 


05730 




BNL 


OVLAP 


08214 


46 


03816 


01300 


05740 




TDM 


PUSH4-9..0 


08226 


15 


08174 


00000 


05750 




TDM 


CEFINE.-l 


08238 


15 


08248 


00001 


05760 


OEFINE 


OS 


,•-1 


08248 


00000 




05770 


DFINE 


09 


•DEFINE 


08248 


00000 




057A0 




TFM 


LKRET.RMARK-i 


08250 


16 


06281 


02924 


05790 




TF 


PUSH4,L00K?-l 


08262 


26 


08183 


08189 


05800 




TD 


LSTR»RMARK 


08274 


25 


08629 


02925 


05810 




CF 


PUSH4-4 


08286 


33 


08179 


00000 


05820 




BNR 


•♦24, -PLACE 


08298 


45 


08322 


03877 


05830 


ER03 


BTM 


ERROR, 07300 


08310 


17 


11844 


07300 


05840 




C 


C24, -PLACE 


08322 


24 


13979 


03877 


05850 




BE 


LKEVAL 


08334 


46 


09218 


01200 


05860 




C 


C34, -PLACE 


08346 


24 


03195 


03877 


05870 




BE 


LL IT 


08358 


46 


08890 


01200 


05880 




C 


C13, -PLACE 


08370 


24 


06795 


03877 



05890 


BE 


INDIR5 


08382 


46 


09018 


01200 


05900 


C 


C22, -PLACE 


08394 


24 


08417 


03877 


05910 


BE 


• +!60 


08406 


46 


08466 


01200 


05920 C22 


DC 


2, 22.* 


08417 


00002 




05930 


C 


C03, -PLACE 


08418 


24 


03291 


03877 


05940 


BE 


«*)36 


08430 


46 


08466 


01200 


05950 


C 


C40, -PLACE 


08442 


24 


03293 


03877 


05960 


BH 


ER04 


08454 


46 


08726 


01100 


05970 


BTM 


C0LCT,»*:12 


08466 


17 


09362 


08478 


05980 


C 


C24, -PLACE 


08478 


24 


13979 


03877 


05990 


BE 


SUBCAL 


08490 


46 


12558 


01200 


06000 FINLKP 


TF 


LSTR,PAST 


08502 


26 


08629 


03548 


06010 


BNF 


•♦24.PERMIS 


08514 


44 


08538 


07971 


06020 


TF 


LSTR»LISTS 


08526 


26 


08629 


06857 


06030 


B7 


BNRTST-12 


08538 


49 


08606 


00000 


06040«#*«.»» 


BEGIN SYMBOL TABEL LOOK UP LOOP 










06050 HP32 


C 


COLDTFj-LSTR * , , CHECK FOR SAME LENGTH 


08546 


24 


09395 


08629 


06060 


BNE 


BNRTST-12 ,,,N0 - GO ON TO NEXT ENTRY 


08558 


47 


08606 


01200 


06070 


TF 


2218*9, -LSTR ,,,MOVE SYMBOL TABLE ENTRY 


08570 


26 


02227 


08629 


06080 


C 


-2218-4, -COLRET,,, NOW CHECK FOR SAME LABEL 


08582 


24 


02222 


08593 


06090 COtRET 


00 


5»0,« 


08593 


00005 




06100 


BE 


FOUNO , , , BRANCH IF LABEL FOUND 


08594 


46 


08738 


01200 


06110 


AM 


LSTR, 10*10 ,,,MOVE TO NEXT ENTRY 


08606 


11 


08629 


00010 


06120 BNRTST 


BNR 


HP32»»-»,7 ,,,TEST FOR END OF TABLE 


08618 


45 


08546 


00000 


06130 tSTR 


OS 


»* 


08629 


00000 




06140«***»« 


END SYMBOL TABEL LOOK UP LOOP 










06150 MOFLNO 


TFM 


LSTR3tRMARK-l 


08630 


16 


02232 


02924 


06160 


BNF 


RETLK.PERMIS 


08642 


44 


08846 


07971 


06170 


BNF 


RETLK.PERMIS-1 


08654 


44 


08846 


07970 


06160 


C 


END-2.-C0LRET .CHECK FOR END CARD 


08666 


24 


05285 


08593 


06190 


BNE 


ER10 


08678 


47 


08066 


01200 



06200 




CM 


C0LDIF.5, 10 




08690 


14 


09395 


00005 


06210 


RIG 


BNE 


EP.10 




08702 


47 


08066 


01200 


06220 


TDUMP 


BTH 


EJECT, DUMP 




08714 


17 


12400 


11928 


06230 


ER04 


BTM 


ERROR, 07400 




08726 


17 


1 1 844 


07400 


06240 


LSTR2 


DS 


,22 18*14 




02222 


00000 




06250 


FOUND 


BO 


N0FIND.2218 *5,, 


, DONT ACCEPT A PUSHED STRING 


08738 


43 


08630 


02223 


062*0 




BO 


NOFIND, 2218+6 




08750 


43 


08630 


02224 


06270 




SM 


LSTR, 10, 10 




08762 


12 


08629 


00010 


06280 




TF 


2218<il9, -LSTR 




08774 


26 


02237 


08629 


06290 




SF 


2218*17 ,, 


.CALCULATE LAST DIGIT + 1 OF 


FOUND STRING 08786 


32 


02235 


00000 


06300 




S 


2218*14,2218+19 




08798 


22 


02232 


02237 


06310 


LSTR3 


OS 


♦2218+14 




02232 


00000 




06320 




TF 


LKRET , LSTR2 




08810 


26 


06281 


02222 


06330 




AM 


LKRET, 3,10 




08822 


11 


06281 


00003 


06340 




TDM 


CFINE.O 




08834 


15 


08248 


00000 


06350 


RETLK 


SF 


PUSH4-4 




08846 


32 


08179 


00000 


06360 




TF 


L00K2-1,PUSH4 




08858 


26 


08189 


08183 


06370 




TF 


PUSH4,PUSH4-10 




08870 


26 


08183 


08173 


06380 




B7 


-L00K2+1 




08882 


49 


08189 


00000 


06390 


LLIT 


TDM 


DEFINE, 0,10 




08890 


15 


08248 


00000 


064 CO 




TD 


COLD I F , RMARK 


.INOICATE VARIABLE NOT TO BE 


DELETED 08902 


25 


09395 


02925 


06410 




TF 


LKRET, PLACE 




08914 


26 


06281 


03877 


06420 




AM 


LKRET, I ,.13 




08926 


11 


06281 


00001 


06430 




AM 


PLACE, 2, 10 




08938 


11 


03877 


00002 


06440 




C 


C34.-PLACE 




08950 


24 


03195 


03877 


06450 




BNE 


•-24 




08962 


47 


08938 


01200 


06460 




TF 


LSTR3, PLACE 




08974 


26 


02232 


03877 


06470 




SM 


LSTR3,1,10 




08986 


12 


02232 


00001 


06460 




AM 


PLACE, 2, 10 




08998 


11 


03877 


00002 


06490 




B7 


RETLK 




09010 


49 


08846 


00000 


065C0 


INDI.R5 


AM 


PLACE, 2, 10 


08 


09018 


11 


03877 


00002 



06510 




TDM 


PERMIS,0 






09030 


15 


07971 


00000 


06520 




BTP 


L00K2,»*12 






09042 


17 


08190 


09054 


06530 




TDM 


CEFINE.-l 






09054 


15 


08248 


00001 


06540 




C 


KMKM*11,PUSH4 






09066 


24 


12793 


08183 


06550 




BNE 


*+24 






09078 


47 


09102 


01200 


06560 




TD 


PERMIS.PERMIS- 


1 




09090 


25 


07971 


07970 


06570 




SM 


LSTR3, 1,10 






09102 


12 


02232 


00001 


06580 




TF 


C0LRET.LSTR3 






09114 


26 


08593 


02232 


06590 




S 


LSTR3, LKRET 






09126 


22 


02232 


06281 


066C0 




BNH 


ER03 






09138 


47 


08310 


01100 


06610 




SF 


LSTR3-2 






09150 


32 


02230 


00000 


06620 




TF 


C0LDIF,LSTR3 






09162 


26 


09395 


02232 


06630 




TF 


KSP, LKRET 






09174 


26 


06833 


06281 


06640 




AM 


KSP, 1, 10 






09186 


11 


06833 


00001 


06650 




TFM 


LKRET , RMARK- 1 






09198 


16 


06281 


02924 


06660 




B7 


FINLKP 






09210 


49 


08502 


00000 


06670 


tKEVAL 


BTH 


EVAL,»+12 






09218 


17 


05926 


09230 


06660 




SM 


CURRT2, 2» 10 






09230 


12 


06329 


00002 


06690 




TF 


LKRET, CLAST 






09242 


26 


06281 


06045 


06700 




TF 


LSTR3,CURRT2 






09254 


26 


02232 


06329 


06710 




TF 


CURRT2, CLAST 






09266 


26 


06329 


06045 


06720 




TD 


LSTR »RMARK 






09278 


25 


08629 


02925 


06730 




TD 


COLOIF » RMARK 


,,, INDICATE NOT TO BE 


DELETED 


09290 


25 


09395 


02925 


06740 




C 


C04, -PLACE 






09302 


24 


14147 


03877 


06750 




BE 


«*24 






09314 


46 


09338 


01200 


06760 




BTH 


ERROR, 07200 






09326 


17 


11844 


07200 


06770 




AM 


PLACE, 2, 10 






09338 


11 


03877 


00002 


06780 




B7 


RETLK 






09350 


49 


08846 


00000 


06790 




OS 


5 






09361 


00005 




06800 


eOLCT 


TFM 


C0lDIF,-l,9 


SUBROUTINE TO FIND 


END OF STRING NAME 


09362 


16 


09395 


00001 


06810 




TF 


KSP, PLACE 




O ft 


09374 


26 


06833 


03877 



06820 


AM 


PLACE, 2..10 




09386 


11 


03877 


00002 


06830 COLDIF 


DC 


3»0, *-2 




09395 


00003 




06840 


BNR 


CN62»-PLACE 




09398 


45 


09598 


03877 


06850 


TFP 


COLCT-l.FINLKP 




09410 


16 


09361 


08502 


06860 RETCOL 


TF 


COLRET, PLACE 




09422 


26 


08593 


03877 


06870 


SM 


COLRET, 2» 10 




09434 


12 


08593 


00002 


06880 


TF 


99, PLACE 




09446 


26 


00099 


03877 


06890 


S 


99, KSP 




09458 


22 


00099 


06833 


06900 


A 


COLDIF, 99 




09470 


21 


09395 


00099 


06910 


CM 


COLDIF, 11, 10 ... 


CHECK FOR I/O INDICATION 


09482 


14 


09395 


00011 


06920 


BNE 


-COLCT+1 




09494 


47 


09361 


01200 


06930 


BO 


-COLCT+1, PERMIS 




09506 


43 


09361 


07971 


06940 


C 


PIT+10, -COLRET 




09518 


24 


02761 


08593 


06950 


BE 


READC 




09530 


46 


11746 


01200 


06960 


C 


PCT+10, -COLRET 




09542 


24 


02733 


08593 


06970 


BE 


PRINT 




09554 


46 


11258 


01200 


069«0 


C 


PPT* 10, -COLRET 




09566 


24 


02747 


08593 


06990 


BE 


PUNCH 




09578 


46 


11426 


01200 


070C0 BACKIN 


B7 


-COLCT+1 




09590 


49 


09361 


00000 


7010 0N62 


C 


C40, -PLACE 




09598 


24 


03293 


03877 


07020 


BL 


COLCT+24 




09610 


4 7 


09386 


01300 


07030 


C 


C03, -PLACE 




09622 


24 


03291 


03877 


07040 


BE 


COLCT+24 




09634 


46 


09386 


01200 


07C50 


C 


L22, -PLACE ,,, 


CHECK FOR A RECORD MARK 


09646 


24 


08417 


03877 


07060 


BE 


COLCT+24 




09658 


46 


09386 


01200 


07070 


B7 


RETCOL 




09670 


49 


09422 


00000 


070€0 


OS 






09681 


00005 




07090 DELBT 


TF 


2218+29, SBCKCL-4, 


.CREATE NEW SYMBOL TABLE ENTRY 


09682 


26 


02247 


04355 


07100 


TF 


2218+:24,CURRNT 




09694 


26 


02242 


03762 


07110 


A 


2218+!29,C0LDIF 




09706 


21 


02247 


09395 


07120 


A 


2218+24,2218+29 


7 II 


09718 


21 


02242 


02247 


07130 


TF 


-PAST, 2218+29 




09730 


26 


03548 


02247 


07140 


BD 


-DELET+1, DEFINE, » 


SKIP DELET IF STRING NOT DEFINED 


09742 


43 


09681 


08248 


07150 


BNR 


•+24, LSTR ,,, 


NO DELETING SYSPIT 


09754 


45 


09778 


08629 


07160 ER05 


BTM 


ERROR, 07500 




09766 


17 


11844 


07500 


07170 


S 


LSTR2»C0LDIF 




09778 


22 


02222 


09395 


07160 


TR 


-1.STR2,-LSTR3 ,,, 


PULL DOWN STRINGS 


09790 


31 


02222 


02232 


07190 


S 


LSTR3»LSTR2 ,,, 


CALCULATE AMOUNT OF SHIFT 


09802 


22 


02232 


02222 


07200 


S 


CURRNT , LSTR3 ,,. 


, UPDATE NEXT AVAL. CORE 


09814 


22 


03762 


02232 


07210 


AM 


PAST»10,10 




09826 


11 


03548 


00010 


07220 


AM 


LSTR,10, 10 




09838 


11 


08629 


00010 


07230 TRLOOP 


TF 


KSTR5 , LSTR 




09850 


26 


09904 


08629 


07240 


SM 


LSTR, 10,10 ,,, 


UPDATE SYMBOL TABLE 


09862 


12 


08629 


00010 


07250 


TF 


2218+,29,-LSTR 




09874 


26 


02247 


08629 


07260 


S 


2218+24, LSTR3 




09886 


22 


02242 


02232 


07270 


TF 


-KSTR5, 2218+29 




09898 


26 


09904 


02247 


07280 KSTR5 


DS 


, — 5 




09904 


00000 




07290 


C 


KSTR5»PAST ,,, 


CHECK FOR END OF SYMBOL TABLE 


09910 


24 


09904 


03548 


07300 


BNE 


TRLOOP 




09922 


47 


09850 


01200 


07310 


B7 


-DELET+l 




09934 


49 


09681 


OOOOO 


07320* 
















07330»«*«»* 


ROUTINE TO CONSTRUCT A NEW STRING 










07340* 
















07350 CONST 


BNR 


•+20.COL0IF 




09942 


45 


09962 


09395 


07360 


B7 


ER05 




09954 


49 


09766 


OOOOO 


07370 


SM 


KSP, I, 10 




09962 


12 


06833 


00001 


07360 


SF 


-KSP 




09974 


32 


06833 


OOOOO 


07390 


TF 


CURRT2, CURRNT 




09986 


26 


06329 


03762 


07400 


S 


CURRT2.KSP 




09998 


22 


06329 


06833 


07410 


A 


CURRT2, COLRET 




10010 


21 


06329 


08593 


07420 


TF 


-CURRT2, -COLRET 




10022 


26 


06329 


08593 


07430 


CF 


-KSP 


7 1 


10034 


33 


06833 


OOOOO 



07440 




SF 


-CURRNT 


10046 


32 


03762 


00000 


07450 




AM 


CURRT2, I, 10 


10058 


11 


06329 


00001 


07460 




TR 


-CURRT2»DSC00*1 


10070 


31 


06329 


07250 


07470 




AM 


CURRT2,2,10 


10082 


11 


06329 


OO002 


07480 




C 


THERE, ERP«i9«-21 


10094 


24 


13170 


13191 


07490 




Bfc 


FORGET 


10106 


46 


10178 


01200 


07500 




S 


CURRT2, THERE 


10118 


22 


06329 


13170 


07510 




A 


CURRT2,ERP+9*21 


10130 


21 


06329 


13191 


07520 




AM 


ERP + 9+121, I, 10 


10142 


11 


13191 


00001 


07530 




S 


ERP+9+21, SHIFT 


10154 


22 


13191 


16575 


07540 




TF 


-CURRT2.-ERP-9-21 


10166 


26 


06329 


13191 


07550 


FORGET 


TF 


FCRGT2+1 1 1 LSTR 


10178 


26 


10417 


08629 


07560 




TF 


FORGT2+23,CULDIF 


10190 


26 


10429 


09395 


07570 




BTM 


EVAL»»+12 


10202 


17 


05926 


10214 


07580 




TF 


CURR T , CURRT2 


10214 


26 


10340 


06329 


07590 




C 


M,W0RKl+9 


10226 


24 


15517 


13590 


076C0 




BE 


F0RGT2 


10238 


46 


10406 


01200 


07610 




S 


M, SHIFT 


10250 


22 


15517 


16575 


07620 




S 


W0RK1+9, SHIFT 


10262 


22 


13590 


16575 


07630 




AM 


ViORKi + 9,1, 10 


10274 


11 


13590 


00001 


07640 




SM 


CURR T,2,10 


10286 


12 


10340 


00002 


07650 




S 


CURRT ,W0RKl+9 


10298 


22 


10340 


13590 


07660 




A 


CURR T,M 


10310 


21 


10340 


15517 


07670 




SF 


— WORK 1-9 


10322 


32 


13590 


00000 


07680 




TR 


-CURR T.DSCOO+l 


10334 


31 


10340 


07250 


07690 


CURRT 


DS 


,*-5 


10340 


00000 




07700 




TF 


-CURR T,-M 


10346 


26 


10340 


15517 


07710 




CF 


-W0RK1-9 


10358 


33 


13590 


00000 


07720 




AM 


CURR T,3,10 


10370 


11 


10340 


00003 


07730 




SM 


CUi<RT2,2, 10 


10382 


12 


06329 


00002 


07740 




CF 


7 "> 

-CURRT2 • - 


10394 


33 


06329 


00000 



07750 


F0RGT2 


TFM 


LSTR,»-» ,, 


.RESTORE LOOK UP PARAMETERS FOR 


DELET 


10406 


16 


08629 


00000 


07760 




TFM 


COLDIF,»-« 






10418 


16 


09395 


00000 


07770 




TDM 


CEFINE.-l 






10430 


15 


08248 


00001 


07780 




CM 


T^ERE »RMARK-2 






10442 


14 


13170 


02923 


07790 




BE 


CONARN 






10454 


46 


10510 


01200 


07800 




AM 


LSTR, 10, 10 






10466 


11 


08629 


00010 


07810 




TF 


2218+19, -LSTR 






10478 


26 


02227 


08629 


07820 




TFM 


PUSH4,»4-20,0 






10490 


16 


08183 


10510 


07830 




B7 


FOUND+24 






10502 


49 


08762 


00000 


07840 


GGNARN 


BTM 


DfcLET, »+12 






10510 


17 


09682 


10522 


07850 




BD 


•♦24. DEFINE 






10522 


43 


10546 


08248 


07860 




S 


CURRT»LSTR3 ,, 


, MOD I FY BY AMOUNT OF SHIFT 




10534 


22 


10340 


02232 


07870 




SM 


CURRT, 2, 10 






10546 


12 


10340 


00002 


07880 




TF 


CURRT2, CURRNT 






10558 


26 


06329 


03762 


07890 




A 


CURRT2.C0LDIF ,, 


.CHECK IF CONSTRUCTED STRING IS 


NULL 


10570 


21 


06329 


09395 


07900 




AM 


CURRT2 , 4, 10 






10582 


11 


06329 


00004 


07910 




BNR 


•+20.-CURRT2 ,, 


,DONT PUT NULL STRING IN SYMBOL 


TABLE 


10594 


45 


10614 


06329 


07920 




B7 


FINCON 






10606 


49 


10662 


00000 


07930 




TF 


CURRNT, CURRT 






10614 


26 


03762 


10340 


07940 




SM 


PAST, 10, 10 ,, 


,PUT IN NEW SYMBOL TABLE HEADER 




10626 


12 


03548 


00010 


07950 




TF 


CURENT-5, CURRNT 






10638 


26 


05125 


03762 


07960 




TF 


-PAST.CURENT 






10650 


26 


03548 


05130 


07970 


FINCON 


BNR 


«*20»-PLACE 






10662 


45 


10682 


03877 


079A0 




87 


YEAH2 






10674 


49 


10774 


00000 


07990 




C 


C61, -PLACE 






10682 


24 


07111 


03877 


08000 




BE 


BRANHS 






10694 


46 


10774 


01200 


08010 




BTM 


6RR0R, 7600 






10706 


17 


11844 


07600 


08020 


CGNST2 


TF 


TFMZ+11, PLACE 






10718 


26 


10765 


03877 


08030 




TF 


PLACE, PL8 






10730 


26 


03877 


12011 


08040 




BTM 


LOOK2,»*;12 


7 3 




10742 


17 


08190 


10754 


O8C50 


TFH& 


TFK 


PLACE, «-» 




10754 


16 


03877 


00000 



08060 


B7 


CONST 


10766 


49 


09942 


00000 


08070* 














0808O****** 


ROUTINE TO HANDLE GOTO PART OF STATEMENT 










08090* 














081C0 BRAOHS 


TDM 


SUC, -I 


10774 


15 


10783 


00001 


08110 BRANHS 


D9 


►BRACKS 


10774 


00000 




08120 SUC 


DC 


2,0, «-2 


10783 


00002 




08130 


B7 


BRACHF+12 


10786 


49 


10806 


00000 


08140 BRA&HF 


TDf 


suco 


10794 


15 


10783 


00000 


08150 BRANHF 


DS 


»BR ACHF 


10794 


00000 




08160 RETURN 


B7 


• ♦8,2 


10806 


49 


10814 


000D2 


08170 YEAH2 


DS 


, BRANHS 


10774 


00000 




08180 


B7 


CN63*36 


10814 


49 


10938 


00000 


08190 YEAH3 


AM 


PLACE, 2, 10 ,,,MOVE PAST L ABLE 


10822 


11 


03877 


00002 


08200 C62 


DAC 


l»S,«-2 


10831 


00002 




08210 


C 


COO, -PLACE 


10834 


24 


03135 


03877 


08220 


BNE 


«-24 


10846 


47 


10822 


01200 


08230 


AM 


PLACE, 2, 10 


10858 


11 


03877 


00002 


08240 


CM 


PLACE, «-• 


10870 


14 


03877 


00000 


08250 EPROG 


DS 


»» 


10881 


00000 




08260 


BNL 


TCUMP 


10882 


46 


08714 


01300 


08270 


B7 


GOTO 


10894 


49 


05452 


00000 


08280 GN63 


C 


C61, -PLACE ,,,FIND DIVIDING SLASH 


10902 


24 


07111 


03877 


082^0 


BE 


CN6 38 


10914 


46 


10958 


01200 


083CO 


AM 


PLACE, 2, 10 


10926 


11 


03877 


00002 


08310 


BNR 


*-36,-PLACE 


10938 


45 


10902 


03877 




B7 


YEAH3 


1 0950 


49 


10822 


00000 


08330 CN638 


AM 


PLACE, 2,10 


10958 


11 


03877 


00002 


08340 


TDV 


SUC2, 1 


10970 


15 


11152 


00001 


08350 


BNR 


• +.20, -PLACE 


10982 


45 


11002 


03877 


08360 


B7 


YEAH2 7 '( 


10994 


49 


10774 


00000 


08370 


C 


C62, -PLACE 


11002 


24 


10831 


03877 


08380 


BE 


FS 


11014 


46 


11110 


01200 


08390 


C 


C56, -PLACE 


11026 


24 


13931 


03877 


08400 


8E 


FF 


11038 


46 


11130 


01200 


08410 


C 


C24, -PLACE 


11050 


24 


13979 


03877 


08420 


BE 


GOT02+12 


11062 


46 


11166 


01200 


08430 


C 


CCO, -PLACE 


11074 


24 


03135 


03877 


08440 


BE 


CN638 


11086 


46 


10958 


01200 


08450 ER12 


BTP 


ERROR, 17200 


11098 


17 


11844 


17200 


08460 FS 


BNF 


G0T02-12.SUC 


11U0 


44 


11142 


10783 


08470 


B7 


G0T02 


11122 


49 


11154 


00000 


08480 FF 


BNF 


G0T02, SUC 


11130 


44 


11154 


10783 


08490 


TDM 


SUC2.0 


11142 


15 


11152 


00000 


08500 SUC2 


DS 


,*-l 


11152 


00000 




08510 G0T02 


AM 


PLACE, 2,10 


11154 


11 


03877 


00002 


08520 


BNR 


•♦20, -PLACE 


1 1166 


45 


11186 


03877 


08530 


B7 


ER12 


11178 


49 


11098 


00000 


08540 


C 


C24, -PLACE 


11186 


24 


13979 


03877 


08550 


BNE 


ER12 


11198 


47 


11098 


01200 


08560 


BD 


•♦24,SUC2 


11210 


43 


11234 


11152 


08570 


BTf 


ADVANCQN638+12 


11222 


17 


12986 


10970 


08580 


AM 


PLACE, 2»10 


11234 


11 


03877 


00002 


08590 


8TM 


i nnKnp.^nTfl— 1 7 

LUUKUr fVJU 1 U l£ 


11246 


17 


07962 


05440 


08600* 














086 10»#>**** 




INPUT - OUTPUT ROUTINES 










08620* 














08630 PRINT 


TFM 


TFM+.ll ,P0T 


11258 


16 


11349 


02723 


08640 


TFM 


PNRET+6, PR INT2 


11270 


16 


11392 


11394 


0865O 


TFM 


RETURN+6,**20 


11282 


16 


10812 


11302 


08660 


B7 


BACKIN 


11294 


49 


09590 


00000 


08670 


TFM 


RETURN + 6, RETURN+8 y 


11302 


16 


10812 


10814 



08680 




BNF 


RETURN, SUC 




11314 


44 


10806 


10783 


08690 




TF 


TFM8K+11, PLACE 




11326 


26 


11373 


03877 


087C0 


TFH 


TFM 


PLACE, PPT 




11338 


16 


03877 


02737 


08710 




BTM 


LOOK2,»*12 




11350 


17 


08190 


11362 


08720 


TFM8K 


TFM 


PLACE,*-* 




11362 


16 


03877 


00000 


08730 




TFM 


RETURN+6, RETURN* 8 




11374 


16 


10812 


10814 


08740 


RNRBT 


B7 


♦ 




1 1386 


49 


00000 


00000 


08750 


PRINT2 


AM 


LKRET, 1, 10 




11394 


11 


06281 


00001 


08760 




BT 


l- ATY »LKRET 




11406 


27 


12226 


06281 


08770 




87 


RETURN 




11418 


49 


10806 


00000 


08760 


IHJNCH 


TFM 


TFM+ll.PPT 




11426 


16 


11349 


02737 


08790 




TFM 


PNRET+6.PUNCH2 




1 1438 


16 


11392 


11458 


08800 




B7 


PRINT«-24 




11450 


49 


11282 


00000 


08810 


PUNCH2 


TFM 


»+18, INPUT+158 




11458 


16 


11476 


02923 


08820 




TFM 


*-»,0 




11470 


16 


00000 


00000 


08830 




SM 


•-6,4, 10 




11482 


12 


11476 


00004 


08840 




CM 


•-18, INPUT 




11494 


14 


11476 


02765 


08850 




BH 


»-36 




11506 


46 


11470 


01100 


08860 




CF 


INPUT-3 ,,, 


PUNCHED OUTPUT 


11518 


33 


02762 


00000 


08870 




TFM 


KKRET, INPUT-1 




1 1530 


16 


11548 


02764 


08880 


LP65 


TD 


«-*, -LKRET 




11542 


25 


00000 


06281 


088<50 


KKR6T 


OS 


,*-5 




11548 


00000 


_ 


08900 




AM 


KKRET, 1,10 




11554 


11 


11548 


OOOOl 


08910 




BNR 


ARN65, -KKRET 




1 1566 


45 


11610 


11548 


08920 




PUT 


CCA 




11578 


16 


00565 


11601 












11590 


49 


00532 


02926 


08930 




B7 


PUNCH2 




11602 


49 


11458 


00000 


08940 


ARN6i5 


AM 


LKRET, 1,10 




11610 


11 


06281 


00001 


08950 




BNR 


ARN66, -LKRET 




11622 


45 


11702 


06281 


08960 




CM 


KKRET, INPUT 


,,, CHECK FOR NULL OUTPUT 


11634 


14 


11548 


02765 


08970 




BE 


• + 36 




11646 


46 


1 1682 


01200 



7« 



08980 


PUT 


CCA 




11658 


16 


00565 


11681 










11670 


49 


00532 


02926 


08990 


CF 


INPUT-1 




11682 


33 


02764 


00000 


0900O 


B7 


RETURN 




11694 


49 


10806 


00000 


09010 ARN66 


TD 


-KKRET, -LKRET 




11702 


25 


11548 


06281 


09020 


AM 


KKRET ,1,10 




11714 


11 


11548 


00001 


09030 


AM 


LKRET, 1,10 




11726 


11 


06281 


00001 


09040 


[U 


LP65 




11738 


49 


11542 


00000 


09050 READC 


BLC 


FAILED 




11746 


46 


07914 


00900 


09060 


BTM 


GET, 42, 10 




11758 


17 


12082 


00042 


09070 


TD 


COLD I F , RMARK 


11770 


25 


09395 


02925 


09080 


TDM 


CEFINE.O 




11782 


15 


08248 


00000 


09090 


TFM 


LKRET , INPUT- 1 




11794 


16 


06281 


02764 


09100 


TFM 


LSTR3, INPUT+159 


11806 


16 


02232 


02924 


09110 


B7 


RETLK 




11818 


49 


08846 


00000 


09120* 
















09130****** 


MISC. ROUTINES 












09140****** 




ERROR - TYPE 


ERROR MESSAGES 










09150****** 




CUMP - DUMP 


MEMORY AT END OF EXECUTION 










09160****** 




GET -,READ 


A CARD, REPLACE REC. MARKS WITH 22 










09170****** 




WAT Y - PRINT 


IF THERE IS A PRINTER, OTHERWISE TYPE 










091€0****** 




EJECT - EJECT 


IF THERE IS A PRINTER, OTHERWISE RCTY 










09190* 
















092C0 ERMES 


DMES 


, A, ERROR 0(E) 




11827 


00018 




09210 ERROR 


SM 


PL8 ,1,10 


,,, ERROR MESSAGE ROUTINE 


11844 


12 


12011 


00001 


09220 


BNF 


»-12,-PL8 




11856 


44 


11844 


12011 


09230 


AM 


PL8 ,1,10 




11868 


11 


12011 


00001 


09240 


TD 


ERROR- 1, RMARK 




11880 


25 


11843 


02925 


09250 


BTM 


EJECT, *+il2 




11892 


17 


12400 


11904 


09260 


BT 


WATY*PL8 




11904 


27 


12226 


12011 


09270 


BTM 


MATY, ERMES 


7 7 


11916 


17 


12226 


11827 



09280 DUMP 


BNF 


T 796 1 DUMPSW if. THE DUMP MEMORY ROURINE 


11928 


44 


11976 


02305 


09290 


TR 


-CURRNT.RMARK-l 


11940 


31 


03762 


02924 


093CO 


AM 


PAST, 10*10 


11952 


11 


03548 


00010 


09310 


BNR 


• ♦;24,-PAST 


11964 


45 


11988 


03548 


09320 T796 


BTM 


EJECT, 796 


11976 


17 


12400 


00796 


09330 


TF 


22 18+19 ,-PAST 


11988 


26 


02227 


03548 


09340 


SF 


2218+17 


12000 


32 


02225 


00000 


09350 PL8 


DC 


5,0,* 


12011 


00005 




09360 


S 


22l8«i4, 2218*9 


12012 


22 


02222 


02227 


09370 


AM 


2218+:4, 1, 10 


12024 


11 


02222 


00001 


09380 


BT 


WATY, 2218+4 


12036 


27 


12226 


02222 


09390 


BWC 


• 


12048 


46 


12048 


00700 


094C0 


TFM 


-2218-4, •-• 


12060 


16 


02222 


00000 


09410 


DC 


2,' ,» 


12071 


00002 




09420 


B7 


CUMP424 


12072 


49 


11952 


00000 


09430 BB 


BB2 




12080 


42 


00000 


00000 


09440* 














09450 GET 


GET 


DCA , , , READ INPUT CARDS ROUTINE 


12082 


16 


00565 


12105 








12094 


49 


00566 


02926 


09460 


TFM 


GET2+:il, INPUT-2 


12106 


16 


12141 


02763 


094 70 


AM 


GET2 + 1W2, 10 


12118 


11 


12141 


00002 


09480 GET2 


BNR 


•-12,*-* 


12130 


45 


12118 


00000 


09490 


CM 


GET2+11,RMARK 


12142 


14 


12141 


02925 


09500 


BNL 


8B 


12154 


46 


12080 


01300 


09510 


TDM 


-GET2-11.2 , , .CHANGE REC. MARK TO 22 CODING 


12166 


15 


12141 


00002 


09520 


SM 


GET2 + 11.U10 


12178 


12 


12141 


00001 


09530 


TDM 


-GET2-11.2 


12190 


15 


12141 


00002 


09540 


SM 


GET2 + 1WW10 


12202 


12 


12141 


00001 


09550 


B7 


GET2-12 


12214 


49 


12118 


00000 


09560 


DC 


5*0 


12225 


00005 




09570 WATY 


BD 


LUCKY, PRINTR ,,,FOR THOSE PEOPLE WITH A PRINTER 


12226 


43 


12264 


02302 






78 










09580 


RCTY 




12238 


34 


00000 


00102 


09590 C0021 


DSAC 


2, /,*-6 


12243 


00004 




09600 


WATY 


-WATY+1 


12250 


39 


12225 


00100 


09610 


BB2 




12262 


42 


00000 


00000 


09620 LUCKY 


OS 


,*+l 


12264 


00000 




09630 


TF 


f INDRM+li,WATY-l 


12264 


26 


12307 


12225 


09640 


B7 


• ♦20 


12276 


49 


12296 


00000 


09650 


AM 


FINDRM+11,2, 10 


12284 


11 


12307 


00002 


09660 FINDRM 


BNR 


•-12,*-* 


12296 


45 


12284 


00000 


09670 


39 


-WATY+:i*900 


12308 


39 


12225 


00900 


09680 


BI 


**?500 , ,,TURN OFF PRINT CHECK INDICATOR 


12320 


46 


12320 


02500 


09690 


BNI 


• +.24,3400 ,,, NORMAL OVERFLOW TEST 


12332 


47 


12356 


03400 


097C0 


34 


0*971 


12344 


34 


00000 


00971 


09710 


A 


WATY- I , LENGTH 


12356 


21 


12225 


02309 


09720 


C 


WATY-l.FINDRM+ll 


12368 


24 


12225 


12307 


09730 


BL 


F I NORM* 12 


12380 


47 


12308 


01300 


09740 


BB2 




12392 


42 


00000 


00000 


09750 


DC 


5*0 


12398 


00005 




09760 EJECT 


BD 


LUCKY2, PRINTR .EJECTION SUBROUTINE 


12400 


43 


12432 


02332 


09770 


RCTY 




12412 


34 


00000 


00102 


09780 


B7 


-EJECT+1 


12424 


49 


12399 


00000 


09790 UICKY2 


34 


0*971 


12432 


34 


00000 


00971 


098CO 


B7 


-EJECT+1 


12444 


49 


12399 


00000 


09810* 














09820»**»*J* 


SUBROUTINE CALLING SYSTEM THE PART WRITTEN IN SPS 










09830* 














09840 


DSA 


ER90 


12455 


00005 16964 


09850 3UBPSH 


DSAC 


50, . 


12555 


00100 




09860 


DC 


l.» 


12556 


00001 




09870 SUBCAL 


TF 


2218*13*SBCKCL 


12558 


26 


02231 


04359 


09860 


TF 


KALSUB+6, PLACE 7 <J 


12570 


26 


12612 


03877 



09890 




S 


KALSUB+6.C0LDIF,, 


RECOVER SUBROUTINE NAME 




12582 


22 


12612 


09395 


099C0 




SM 


KALSUB*6,2, 10 






12594 


12 


12612 


00002 


09910 


KALSUB 


SF 


»— • 






12606 


32 


00000 


00000 


09920 




A 


2218413,-PLACE 






12618 


21 


02231 


03877 


09930 




CF 


KALSUB+6,,6 






12630 


33 


12612 


00000 


09940 




TFK 


KALSB+6,SUBLST 






12642 


16 


12660 


02323 


09950 


KALSB 


C 


•-*, 2218*11 






12654 


24 


00000 


02229 


09960 




BE 


KALFD 






12666 


46 


12710 


01200 


09970 




AM 


K ALSB + 6 , 18 , 10 ,,, 


SEARCH FOR ENTRY AOORESS 




12678 


11 


12660 


00018 


09980 




BNR 


KALSB,— KALSB- 6 






12690 


45 


12654 


12660 


09990 




B7 


6R90-12 






12702 


49 


16952 


00000 


100C0 


KALFD 


AM 


KALSB+6,5, 10 ,,, 


MOVE TO RECOVER ADDRESS 




12710 


11 


12660 


00005 


10010 




TR 


SUBPSH-89,SUBPSH- 


74, f MOVE ENTRY ADDR. INTO PUSH 


DOWN LIST 


12722 


31 


12466 


12481 


10020 




TF 


SUBPSH-10,-KALSB- 


6 




12734 


26 


12545 


12660 


10030 




CF 


SUBPSH-14 , ,, 


THE FOLLOWING IS PURE PROCEDURE 


FOR 


12746 


33 


12541 


00000 


10040 




TFf 


SUBPSH,0,2 tti 


RECURSIVE ENTRY 




12758 


16 


12555 


00000 


10050 




TF 


SUBPSH-5, CURRT2 






12770 


26 


12550 


06329 


10060 


KMKM 


CF 


SUBPSH-9,PEKMT,7 






12782 


33 


12546 


07998 


10070 




BTM 


EVAL,»+12 






12794 


17 


05926 


12806 


looeo 




C 


C04, -PLACE 






12806 


24 


14147 


03877 


10090 




BE 


SUBOUT in 


BRANCH IT ONLY ONE ARGUMENT 




12818 


46 


12902 


01200 


101C0 




TF 


3UBPSH.CURRT2 






12830 


26 


12555 


06329 


10110 




CF 


SUBPSH-4 






12842 


33 


12551 


00000 


10120 




BTM 


EVAL,*+12 






12854 


17 


05926 


12866 


10130 




C 


C04 ,— PLACE 






12866 


24 


14147 


03877 


1 1 AO 




BE 




ERROR IF MORE THAN 2 ARGUMENTS 




12878 


46 


12902 


01200 


10150 


ERll 


BTM 


ERROR, 17100 






12890 


17 


11844 


17100 


10160 


SUBOUT 


SF 


SUBPSH-14 






12902 


32 


12541 


00000 


10170 




TF 


2299,SUBPSH 






12914 


26 


02299 


12555 


10180 




TF 


SUBPSH.SUBPSH-15 


,POP UP PUSH DOWN LIST 




12926 


26 


12555 


12540 


10190 




SF 


2290 


so 




12938 


32 


02290 


OOOOO 



10200 
10210 
10220 

10230 SV203 
10'240 ADVANC 
10250 VG 
10260 
10270 
10280 

10290 C340IG 

10300 VG2 

10310 

10320 

103 30 

10.340 

10350 

10,360 

10370 

10380 

10390 

10400* 

10410****** 

10420» 

10430 6RP 

10440* 

10450****** 

10*60*****1* 

10470****** 

10480****** 

10490****** 

10500****** 



SF 

TF 

B7 

DC 

TFM 

AM 

C 

BNE 

TD 

DS 

BD 

C 

BNE 

AM 

C 

BNE 

SM 

BNN 

AM 

B7 



2295 

CLAST.2294 

-2289 

5,0 

PARCNT, 0, 10 
PLACE, 2,10 
C34, -PLACE 
VG2 

C34DIG.2310 
,* 

VG,C 34010, 
C24, -PLACE 
»*24 
PARCNT ,1,10 
CC4, -PLACE 
VG 

PARCNT, 1, 10 
VG 

PLACE, 2, 10 
-SV203 



,,,G0 TO THE SUBROUTINE 

, , , SUBPROGRAM TO ADVANCE TO MATCH PAENTHES IS 



REVISED PATTERN COMPARISION ROUTINE 
DSS 21*20 

ERP ENTRY IS AAAAAPPPPPLLLLTTWWWW • 

AAAAA IS THE ADDRESS OF THE CONSTANT STING 

PPPPP IS A PIONTER INTO THE STRING TO BE COMPARED 

LLLL IS THE LENGTH OF THE CONSTANST STING 
TT IS THE TYPE OF CONSTANT STRING 

WWWVi IS THE MINAMUM LENGTH REOUIREO BE REMAINING MATCH STRI 

81 



12950 
12962 
12974 
12985 
12986 
12998 
13010 
13022 
13034 
13045 
13046 
13058 
13070 
13082 
13094 
13106 
13118 
13130 
13142 
13154 



32 02295 
26 06045 
49 02289 
00005 
16 14179 
11 03877 

24 03195 
47 13046 

25 13045 
OOOOO 

43 12998 
24 13979 
47 13094 

11 14179 
24 14147 
47 12998 

12 14179 
46 12998 
11 03877 
49 12985 



OOOOO 
02294 
OOOOO 

OOOOO 
00002 
03877 
01200 
02310 

13045 
03877 
01200 
00001 
03877 
01200 
00001 
01300 
00002 
OOOOO 



13161 00420 



105 10»*«*»« 




• IS A RECORD MARK 










10520* 
















10530 


DSC 


21,-0000-0000- 


OOOK 0-000' ,ERP 


13161 


00021 




10540 WORM 


DSC 


21 ,-0000-0000- 


000-0-000* 


13581 


00021 




10550* 
















10560 SCAM 


TFM 


W,0,8 




13602 


16 


14241 


00000 


10570 


TFM 


UERP + 21 




13614 


16 


14284 


13182 


10580 KINDF 


8NR 


•+20, -PLACE 


,,,CHECK FOR RECORD MARK 


13626 


45 


13646 


03877 


10590 


B7 


F INK 




13638 


49 


14810 


00000 


106CO 


TFM 


l'ORKl*9»0 




13646 


16 


13590 


00000 


10610 


C 


COO, -PLACE 


, , , b L ANK 


13658 


24 


03135 


03877 


10620 


8NE 


♦ ♦24 




13670 


47 


13694 


01200 


10630 


AM 


PLACE, 2,10 




13682 


11 


03877 


00002 


10640 


C 


C 14, -PLACE 


,,, ASTERISK 


13694 


24 


06351 


03877 


10650 


BE 


FILLEM 




13706 


46 


14342 


01200 


10660 


C 


C61, -PLACE 


,,,SLASH 


13718 


24 


07111 


03877 


10670 


BE 


F INK 




13730 


46 


14810 


01200 


10660 


C 


C33, -PLACE 




13742 


24 


05757 


03877 


10690 


BE 


F INK 




13754 


46 


14810 


01200 


10700 KEGUL 


TF 


PL2, PLACE 




13766 


26 


07149 


03877 


10710 


TFM 


HORKH-15, 15, 10 




13778 


16 


13596 


00015 


10720 


SM 


PL2, 1, 10 




13790 


12 


07149 


00001 


10730 


BTM 


L00K2,»+12 




13802 


17 


08190 


13814 


10740 


SF 


-PL2 


, , , CHECK FOR BACK REFERENCE 


13814 


32 


07149 


00000 


10750 


C 


CURRT2, L5TR3 




13826 


24 


06329 


02232 


10760 


BH 


• ♦24 




13838 


46 


13862 


01100 


10770 


TF 


CURRT2 , LSTR3 




13850 


26 


06329 


02232 


10760 


SM 


PLACE, 2, 10 




13862 


12 


03877 


00002 


10790 


TF 


PL6 , PLACE 




13874 


26 


14125 


03877 


10800 


S 


PL6.PL2 




13886 


22 


14125 


07149 


10810 


SM 


PL6, 1, 10 


8 2 


13898 


12 


14125 


00001 



10820 




TFM 


I I , CRP 




13910 


16 


13945 


13161 


10830 


EPPP 


AM 


11,21, 10 




13922 


11 


13945 


00021 


10840 


C56 


DAC 


l,F,*-2 




13931 


00002 




10850 




CM 






13934 


14 


14284 


00000 


10860 


! I 


DS 


, * 




13945 


00000 




10870 




BNH 


REGUL2 




13946 


47 


14158 


01100 


10880 




TR 


W0RK2 1 1 




13958 


31 


14321 


13945 


10890 




CM 


I«0RK2+11,10,10 




13970 


14 


14332 


00010 


109C0 


€24 


DAC 


Ul, *-2 




13979 


00002 




10910 




BH 


LPPP 




13982 


46 


13922 


01100 


10920 




A 


l*ORK2 + 4»PL6 




13994 


21 


14325 


14125 


10930 




C 


WORK2+4.W0RK2+9 




14006 


24 


14325 


14330 


10940 




BNE 


LPPP 




14018 


47 


13922 


01200 


10950 




C 


-PLACE, -WORK 2- 4 




14030 


24 


03877 


14325 


10960 




BNE 


LPPP 




14042 


47 


13922 


01200 


10970 




TF 


wHRKl+4, 1 1 ,,,BACK REFERENCE 


FOUND 


14054 


26 


13585 


13945 


10980 




TF 


WORKl+:i3,HORK2+13 




14066 


26 


13594 


14334 


10990 




CF 


-PL2 




14078 


33 


07149 


00000 


11000 




TFM 


WORKl+15,25, 10 




14090 


16 


13596 


00025 


11010 




S 


W0RK2*4,PL6 




14102 


22 


14325 


14125 


11020 




SF 


W0RK2+20 




14114 


32 


14341 


00000 


11030 


PL6 


DC 


5*0, « 




14125 


00005 




11040 




TR 


-1 1 ,W0RK2 




14126 


31 


13945 


14321 


11050 


410NF2 


AM 


PLACE, 2, 10 




14138 


11 


03877 


00002 


11060 


C04 


DAC 


l*),«-2 




14147 


00002 




11070 




B7 


JIONF 




14150 


49 


14278 


00000 


11080 


REGUL2 


CF 


-PL2 




14158 


33 


07149 


00000 


1109O 


SV100 


DC 


5,0,» 




14169 


00005 




11 100 




AM 


PLACe,2,10 




14170 


11 


03877 


00002 


11110 


PAR ON T 


DC 


2*0, »-2 




14179 


00002 




11120 




TF 


W0RKl*4 r LSTR3 STRING IS NOT 


BACK REFERNCE 


14182 


26 


13585 


02232 



83 



11130 




SM 


W0RK1+4, 1,10 




14194 


12 


13585 


00001 


11140 




TF 


99,W0RKU4 




14206 


26 


00099 


13585 


11150 




S 


99.LKRET 




14218 


22 


00099 


06281 


11160 




SF 


S6 




14230 


32 


00096 


00000 


11170 


U 


OS 


•* 




14241 


00000 




11180 




AM 


99,1,10 




14242 


11 


00099 


_ 

OOOOl 


11190 




BZ 


KINOF ,,, 


SKIP IF NULL CONSTANT STRING 


14254 


46 


13626 


01200 


11200 




TF 


WORKl+13,99 




14266 


26 


13594 


00099 


11210 


JIONF 


TR 


-I, WORK I , ,, 


MOVE IN ERP ENTRY 


14278 


31 


14284 


13581 


11220 


i 


OS 


,•-5 




14284 


00000 




11230 




AM 


I ,.21, 10 




14290 


11 


14284 


_ 

00021 


11240 




A 


W»W0RK1+:13 




14302 


21 


14241 


13594 


11250 




87 


KINDF 




14314 


49 


13626 


ooooo 


11260 


W0RK2 


OSS 


21 




14321 


00021 




11270 


FILLEM 


AM 


PLACE, 2, 10 




14342 


11 


03877 


_ 

00002 


11280 




C 


C24, -PLACE ,,, 


CHECK FOR BALNCEO STRING 


14354 


24 


13979 


03877 


11250 




BE 


BLNCD 




14366 


46 


14606 


01200 


11300 




TF 


WORK 1+4 , PL ACE 




14378 


26 


13585 


03877 


11310 


OUCK 


C 


C14, -PLACE 




14390 


24 


06351 


03877 


11320 




BE 


E^07-^ 12 




14402 


46 


14498 


01200 


11330 




C 


C21, -PLACE,, ,,, 


CHECK FOR A SLASH 


14414 


24 


06363 


03877 


11340 




BE 


ER07+12 




14426 


46 


14498 


01200 


11350 




C 


C34, -PLACE 




14438 


24 


03195 


03877 


11360 




BE 


6R07 ,,, 


NO L I TTERALS ALLOWED IN FILLER DEFINITION 


14450 


46 


14486 


01200 


11370 




AM 


PLACE, 2, 10 




14462 


11 


03877 


00002 


11380 




BNR 


PUCK, -PLACE 




14474 


45 


14390 


03877 


11390 


ER07 


BTM 


ERROR, 07700 




14486 


17 


11844 


07700 


11400 




TFM 


WORKl+13,0,8 




14498 


16 


13594 


OOOOO 


11410 




TF" 


WORKl+15,0, 10 




14510 


16 


13596 


OOOOO 


11420 




TF 


WORK l+!9, PLACE 




14522 


26 


13590 


03877 


11430 




SM 


WORKl+9,2, 10 




14534 


12 


13590 


00002 


11440 




C 


C21, -PLACE 




14546 


24 


06363 


_ 

03877 


11450 




BE 


FIXECL 




14558 


46 


14698 


01200 


11460 




C 


C14, -PLACE 




14570 


24 


06351 


03877 


11470 




BE 


J I0NF2 




14582 


46 


14138 


01200 


1 1480 


ER15 


BTf 


ERROR, 17400 




14594 


17 


11844 


17400 


11490 


BLNCD 


AM 


PLACE, 2, 10 ,,, 


BALNCED STRING 


14606 


11 


03877 


00002 


11500 




TF 


WORKl+4, PLACE 




14618 


26 


13585 


03877 


11510 




BTM 


ADVANC,»+12 




14630 


17 


12986 


14642 


11520 




TFM 


WORKl+13,2,8 




14642 


16 


13594 


00002 


11530 




TFM 


WORKl + 15,5, 10 




14654 


16 


13596 


00005 


11540 




TF 


WORK 1 + 9 ,.PL ACE 




14666 


26 


13590 


03877 


11550 




SM 


WORKl+9,4, 10 




14678 


12 


13590 


00004 


11560 




B7 


ER15-24 




14690 


49 


14570 


OOOOO 


1157C 


F I.XEDL 


AM 


PLACE, 2, 10 ,,, 


FIXEO LENGTH STRING 


14698 


11 


03877 


00002 


11560 




BTM 


LOOK2,»*12 




14710 


17 


08190 


14722 


11590 




BTK 


INT, »+12 




14722 


17 


07566 


14734 


116C0 




BNF 


»*i20,INTRET 




14734 


44 


14754 


17431 


11610 




B7 


ER07 




14746 


49 


14486 


OOOOO 


11620 




SF 


INTRET-3 




14754 


32 


17428 


OOOOO 


11630 




TF 


W0RK1+13, INTRFT 




14766 


26 


13594 


17431 


11640 




A 


HORK1 + 13.WORKU13 


14778 


21 


13594 


13594 


11650 




TFM 


WORKl+15, 10,10 




14790 


16 


13596 


00010 


11660 




B7 


BR 15- 24 




14802 


49 


14570 


OOOOO 


11670 


FINKi 


TFM 


WORKl+15,20,10,,, 


EXTRA FINAL EXTRY 


14810 


16 


13596 


00020 


11680 




TF 


CONSTR+ll, PLACE, , 


PLACE MAY BE DESTROYED LATER 


14822 


26 


16883 


03877 


11690 




TR 


-I,W0RK1 




14834 


31 


14284 


13581 


11700 


SFLAG 


CF 


SFLAG 




14846 


33 


14846 


OOOOO 


11710 




TF 


ERP+9+21, THERE 




14858 


26 


13191 


13170 


11720 




TFM 


UERP ... 


SET UP W VALUES 


14870 


16 


14284 


13161 


11730 




TFM 


BRP+15,0,10 




14882 


16 


13176 


OOOOO 


1 1740 


WLOQP 


TR 


W0RK2.-I 




14894 


31 


14321 


14284 



85 



1 1750 




TF 


W0RK2+19.W 


14906 


26 


14340 


14241 


11760 




3 


W»WORK2*;i3 


14918 


22 


14241 


14334 


11770 




TR 


-I.W0RK2 


14930 


31 


14284 


14321 


11780 




AM 


1,21,10 


14942 


11 


14284 


00021 


117S0 




CM 


WORK2*15,20, 10 


14954 


14 


14336 


00020 


11800 




BNE 


WLOOP 


14966 


47 


14894 


01200 


11810 




TFM 


ERP+15,20,10 


14978 


16 


13176 


00020 


11820 




TR 


- I ,W0RK2 


14990 


31 


14284 


14321 


11830 




TFM 


I,ERP*21 i.tSET UP I 


15002 


16 


14284 


13182 


11840 


RULE2 


TR 


WORKI.-I 


15014 


31 


13581 


14284 


11850 




AM 


U21,10 


15026 


11 


14284 


00021 


11860 




TR 


W0RK2.-I 


15038 


31 


14321 


14284 


11870 




TF 


SV100,WORK1*9 .CHECK FOR SIZE FAILURE 


15050 


26 


14169 


13590 


11880 




A 


SV100.W0RK1+19 


15062 


21 


14169 


13600 


11850 




C 


SV100,M 


15074 


24 


14169 


15517 


11900 




BH 


SIZEF 


15086 


46 


15782 


01100 


11910 




TF* 


•♦30, BRTABt711 t , .COMPUTED GOTO 


15098 


16 


15128 


15133 


11920 




S 


•♦18,W0RK1+15 


15110 


22 


15128 


13596 


11930 




B7 


* — • 


15122 


49 


00000 


00000 


11940 


BRTAB 


OS A 


F,B,F,K, FINISH, R 


15133 


00005 15264 










15138 


00005 15550 










15143 


00005 15264 










15148 


00005 15160 










15153 


00005 16098 










15158 


00005 15350 


11950 


K 


TF 


M0RK2+9»W0RKl+9. .CONSTANT STRING 


15160 


26 


14330 


13590 


119*0 




A 


WURK2 + 9..W0RK1-H3 


15172 


21 


14330 


13594 


11970 




AM 


WORK 1 ♦i9, I , 10 


15184 


11 


13590 


00001 


11980 




SF 


-W0RK1-9 


15196 


32 


13590 


00000 


11990 




C 


-W0RK2-9.-W0RKI-4 


15208 


24 


14330 


13585 


120CO 




CF 


-H0RK1-9 


15220 


33 


13590 


00000 



86 



12010 BNE NATCHF 

12020 TR -I.W0RK2 

12030 B7 RULE2 

12040 F TF WORK 2*9.W0RK1*9», FILLER STRIG 

12050 A W0RK2+9,W0RK1+13 

12060 TR -I.W0RK2 

12070 B7 RULE2 

12080 W0RK3 OSS 21 

12090 W0RKI4 DSS ?l 

121C0 R SF SFLAG ,,,BACK REFERENCE 

12110 TR w0RK3,-W0RKl-4 

12120 AM WORKl+4,21,10 

12130 TR W0RK4.-W0RK1-4 

12140 S WURK3 + 9..W0RK4+9 

12150 BZ F ,, .CHECK FOR EMPTY FILLER 

12160 TF V50RK2+9»WORK1*9 

12170 S W0RK2*9,.W0RK3+9 

121€0 C V«0RK2+9,M 

12190 BH SIZEF 

12200 AM WORKl+9,1, 10 

12210 SF -W0RK1-9 

12220 C -W0RK2-9.-W0RK4-9 

12230 CF -W0RK1-9 

12240 HI DC 5,0,« 

12250 BNE MATCHF 

12260 CIATCHS TR -I.W0RK2 

12270 B7 RULE2 

12280 B TF H0RK2+9,W0RK1*9 

12290 AM W0RK2*9,.2»10 

12300 C C04.-W0RK2-9 , , , CHECK FOR CLOSE PAREN 

12310 BE MATCHF 



15232 


47 


15912 


01200 


15244 


31 


14284 


14321 


15256 


49 


15014 


00000 


15264 


26 


14330 


13590 


15276 


21 


14330 


13594 


15288 


31 


14284 


14321 


15300 


49 


15014 


00000 


15307 


00021 




15328 


00021 




15350 


32 


14846 


00000 


15362 


31 


15307 


13585 


15374 


11 


13585 


00021 


15386 


31 


15328 


13585 


15398 


22 


15316 


15337 


15410 


46 


15264 


01200 


15422 


26 


14330 


13590 


15434 


22 


14330 


15316 


15446 


24 


14330 


15517 


15458 


46 


15782 


01100 


15470 


11 


13590 


00001 


15482 


32 


13590 


00000 


15494 


24 


14330 


15337 


15506 


33 


13590 


00000 


15517 


00005 




15518 


47 


15912 


01200 


15530 


31 


14284 


14321 


15542 


49 


15014 


00000 


15550 


26 


14330 


13590 


15562 


11 


14330 


00002 


15574 


24 


14147 


14330 


15586 


46 


15912 


01200 



12320 




C 


C24 t -W0RK2-9 ,., CHECK FOR OPEN PAREN 


15598 


24 


13979 


14330 


12330 




BNE 


CATCHS 


15610 


47 


15530 


01200 


12340 




SF 


SFLAG 1 1 1 BALANCED STRING 


15622 


32 


14846 


00000 


12350 




TFP 


PARCNTt 1, 10 


15634 


16 


14179 


00001 


12360 


BLOOP 


AM 


H0RK2*:9»,2»10 


15646 


11 


14330 


OOO02 


12370 




C 


K0RK2*9, M 


15658 


24 


14330 


15517 


12380 




BH 


PATCHF 


15670 


46 


15912 


01100 


12390 




C 


C24.-W0RK2-9 


15682 


24 


13979 


14330 


124C0 




BNE 


•♦32 


15694 


47 


15726 


01200 


12410 




AM 


PARCNT, 1 • 10 


15706 


11 


14179 


OOO01 


12420 




B7 


PLOOP 


15718 


49 


15646 


OOOOO 


12430 




C 


C04.-W0RK2-9 , ,, COMPARE FOR ) 


15726 


24 


14147 


1433 


12440 




BNE 


BLOOP 


15738 


47 


15646 


01200 


12450 




SM 


PAKCNT. It 10 


15750 


12 


14179 


OOOOl 


12460 




BZ 


MATCHS 


15762 


46 


15530 


01200 


124 70 




B7 


BLOOP 


15774 


49 


15646 


OOOOO 


12480 


SIZEF 


BNF 


BR ACHF .SFLAG ...SCAN FAILURE IF SFLAG NOT SET 


15782 


44 


10794 


14846 


12490 




SM 


1,21,10 


15794 


12 


14284 


00021 


125C0 


DEC 


SM 


U21.10 ...SIZE FAILURE 


15806 


12 


14284 


00021 


12510 




TR 


WORKl, -I 


15818 


31 


13581 


14284 


12520 




TFf 


•+30.BRTAB2.711 


15830 


16 


15860 


15865 


12530 




S 


•♦18.W0RK1+15 


15842 


22 


15860 


13596 


12540 




87 


» — » 


15854 


49 


00000 


OOOOO 


12550 


BRTAB2 


OSA 


A, M A TCHF* 12, DEC, DEC, BR ACHF, DEC 


15865 


00005 15892 










15870 


00005 15924 










15875 


00005 15806 










15880 


00005 15806 










15885 


00005 10794 










15890 


00005 15806 


12560 


A 


BNF 


CtC,W0RKl+20 


15892 


44 


15806 


13601 


12570 




B7 


PATCHF+12 


15904 


49 


15924 


OOOOO 


12580 


MATCHF 


SM 


I, 21,10 


15912 


12 


14284 


00021 


12590 




SM 


U2U10 


15924 


12 


14284 


00021 


12600 




TR 


WORKl, -I 


15936 


31 


13581 


14284 


12610 




TFM 


•♦30.BRTAB3.711 


15948 


16 


15978 


15983 


12620 




S 


• 18»W0RKl*15 


15960 


22 


15978 


13596 


12630 




B7 


K — * 


15972 


49 


00000 


OOOOO 


12640 


BRTA83 


OS A 


A2,B2,MATCHF*12,MATCHF+12, A2.MATCHF+12 


15983 


00005 16010 










15988 


00005 16066 










15993 


00005 15924 










15998 


00005 15924 










16003 


00005 16010 










16008 


00005 15924 


12650 


A2 


AM 


I ..21*10 


16010 


11 


14284 


00021 


12660 




TR 


WORKl, -I 


16022 


31 


13581 


14284 


12670 




AM 


W0RK1^9»2*10 


16034 


11 


13590 


00002 


12680 




TR 


— I .WORKl 


16046 


31 


14284 


13581 


12690 




B7 


,"<ULE2 


16058 


49 


15014 


OOOOO 


127CO 


B2 


AM 


1.21,10 ,,, REMATCH BALANCEO STRING 


16066 


11 


14284 


00021 


12710 




TR 


W0RK2.-I 


16078 


31 


14321 


14284 


12720 




87 


B+112 


16090 


49 


15562 


OOOOO 


12730* 














12740 


FINISH 


SM 


1,42,10 


16098 


12 


14284 


OO042 


12750 




TR 


H0RK2.-I ,, .EXTEND LAST STRING IF ARBITRARY 


16110 


31 


14321 


14284 


12760 




AM 


1,21,10 


16122 


11 


14284 


OO021 


12770 




CM 


M0RK2+;15,0t 10 


16134 


14 


14336 


OOOOO 


12780 




BNE 


* + 36 


16146 


47 


16182 


01200 


12790 




TF 


WORK 1*9 ,.M 


16158 


26 


13590 


15517 


12800 




TR 


-I, WORKl 


16170 


31 


14284 


13581 


12810 




TFM 


UERP+521 ,,, CONSTRUCT FILLED STRINGS 


16182 


16 


14284 


13182 


12820 




TFM 


SHIFT, 


16194 


16 


16575 


OOOOO 


12830 


KNLOOP 


TR 


WORKl, -I g 


16206 


31 


13581 


14284 



12840 




AM 


I i 21 » 10 


16218 


11 


14284 


00021 


12850 




TR 


W0RK2.-I 


16230 


31 


14321 


14284 


12860 




TFM 


• ♦'30»BRTAB4, 71 1 


16242 


16 


16272 


16277 


12870 




s 


«*18,W0RK1«:15 


16254 


22 


16272 


13596 


12880 




B7 


#— » 


16266 


49 


00000 


00000 


12890 


BRTAB4 


OSA 


K0NST»K0NST»K0NST«KNLU0P»C0NST8» KNLOOP 


16277 


00005 16304 










16282 


00005 16304 










16287 


00005 16304 










16292 


00005 16206 










16297 


00005 16872 










16302 


00005 16206 


129C0 


HON ST 


TF 


PLACE»W0RK1*4 


16304 


26 


03877 


13585 


12910 




TF 


CURRT2 tCURRNT 


16316 


26 


06329 


03762 


12920 




BTK 


LOOK2,»fl2 ,,, CONSTRUCT FILLED VARIABLE 


16328 


17 


08190 


16340 


12930 




BNR 


•♦20»C0LDIF 


16340 


45 


16360 


09395 


12940 




B7 


tR07 


16352 


49 


14486 


00000 


12950 




BD 


AROUND, DEF INE 


16360 


43 


16456 


08248 


12960 




TF 


SV 100 , WORK 1*9 


16372 


26 


14169 


13590 


12970 




s 


SV100, SHIFT 


16384 


22 


14169 


16575 


12980 




c 


LSTR3,SV100 


16396 


24 


02232 


14169 


12990 




BH 


AROUND 


16408 


46 


16456 


01100 


130CO 




S 


SHIFT, LSTR2 


16420 


22 


16575 


02222 


130 10 




A 


SHIFT, COLDIF 


16432 


21 


16575 


09395 


13020 




A 


SH !FT»LSTR3 


16444 


21 


16575 


02232 


13030 


AROUND 


BTK 


CELET,*+;i2 


16456 


17 


09682 


16468 


13040 




C 


mORKU- 9.W0RK2+9 


16468 


24 


13590 


14330 


13050 




BE 


KNLOOP ,,,CHECK FOR EMPTY TILLER 


16480 


46 


16206 


01200 


13060 




TF 


PLACE , WORK 1+4 


16492 


26 


03877 


13585 


13070 




C 


C 13, -PLACE 


16504 


24 


06795 


03877 


13080 




BNE 


• ♦.36 , , , PLACE OF NAME MAY HAVE MOVED 


16516 


47 


16552 


01200 


13090 




TF 


CURRT2 , CURRNT u 


16528 


26 


06329 


03762 



13100 


BTN 


L00K2,»+12 


16540 


17 


08190 


16552 


13110 


S 


WCRKHi9, SHIFT 


16552 


22 


13590 


16575 


13120 


SM 


WORK2+9,«-» 


16564 


12 


14330 


00000 


13130 SHIFT 


DS 


»• 


16575 


00000 




13140 


SM 


KSP, 1, 10 


16576 


12 


06833 


00001 


13150 


SF 


-KSP 


16588 


32 


06833 


00000 


13160 


TF 


SF89+6 ,CURRNT 


16600 


26 


16666 


03762 


13170 


S 


CURRNT.KSP 


16612 


22 


03762 


06833 


13180 


A 


CURRNT , COLRET 


16624 


21 


03762 


08593 


13190 


TF 


-CURRNT »-COLRET 


16636 


26 


03762 


08593 


13200 


CF 


-KSP ,,,LETS NOT LEAVE ANY STRAY FLAGS 


16648 


33 


06833 


00000 


13210 SF89 


SF 


«— » 


16660 


32 


00000 


00000 


13220 


AM 


CURRNT, 1, 10 


16672 


11 


03762 


00001 


13230 


TP. 


-CURRNT, DSCOO+l 


16684 


31 


03762 


07250 


13240 


AM- 


CURRNT ,2,10 


16696 


11 


03762 


00002 


13250 


TF 


CF8+6, CURRNT 


16708 


26 


16810 


03762 


13260 


AM 


U0RK1*9,1, 10 


16720 


11 


13590 


00001 


13270 


S 


CURRNT , WORK 1*9 


16732 


22 


03762 


13590 


13280 


A 


CURRNT , WORK 2 +9 


16744 


21 


03762 


14330 


13290 


SF 


-WORK 1-9 


16756 


32 


13590 


00000 


13300 


TR 


-CURRNT, DSCOO+l 


16768 


31 


03762 


07250 


13310 


TF 


—CURRNT,— WORK 2— 9 


16780 


26 


03762 


14330 


13320 


CF 


-W0RK1-9 


16792 


33 


13590 


00000 


13330 CFB 


CF 




16804 


33 


00000 


00000 


13340 


AM 


CURRNT ,1,10 


16816 


11 


03762 


00001 


13350 


SM 


PAST, 10, 10 


16828 


12 


03548 


00010 


13360 


TF 


CURENT-5, CURRNT 


16840 


26 


05125 


03762 


13370 


TF 


-PAST , CURENT 


16852 


26 


03548 


05130 


13.380 


B7 


KNLOOP 


16864 


49 


16206 


00000 


13390* 














13400 CGNST8 


TFM 


PLACE, *-» 9 | 


16872 


16 


03877 


00000 



134t0 


BNR 


«-*20»-PLACE 


16884 


45 


16904 


03877 


13420 


B7 


YEAH2 


16896 


49 


10774 


00000 


13430 


C 


C61, -PLACE 


16904 


24 


07111 


03877 


13440 


BE 


BRANHS 


16916 


46 


10774 


01200 


13450 


C 


C33, -PLACE 


16928 


24 


05757 


03877 


13460 


BE 


CONST 2 


16940 


46 


10718 


01200 


13470 


BTr 


EKnORf 17500 


16952 


17 


11844 


17500 


13480 ER90 


BTM 


ERROR, 07800 


16964 


17 


11844 


07800 


13490* 














135C0»*»»*» 


DCCCDE CONTROL CARS 










13510* 














13520 CONTRL 


BNR 


» + 20» INPUT+2 , , , CONTROL CARD OECODER 


16976 


45 


16996 


02767 


13530 


B7 


R E AO 


16988 


49 


03066 


00000 


13540 


TFM 


F IND» INPUT 


16996 


16 


17031 


02765 


13550 


AM 


F I ND t 2 i 10 


17008 


11 


17031 


00002 


13560 


C 


COO,*-* 


17020 


24 


03135 


00000 


13570 FIND 


OS 


, • 


17031 


00000 




13580 


BE 


•-24 


17032 


46 


17008 


01200 


13590 


AM 


f IN0.4, 10 


17044 


11 


17031 


00004 


136C0 


BNR 


•+:20,-F INO 


17056 


45 


17076 


17031 


13610 


B7 


TYPEC 


17068 


49 


17136 


00000 


13620 


TFM 


«*18»CTAB 


17076 


16 


17094 


17161 


13630 K83 


C 


»-»,-FIND 


17088 


24 


00000 


17031 


13640 


BE 


rnuND 8 


17100 


46 


17246 


01200 


13650 


AM 


»-18fl2, 10 


17112 


11 


17094 


00012 


13660 


BNR 


»-36,«-30f 11 


17124 


45 


17088 


17094 


13670 TYPEC 


BTM 


WATYdNPUT 


17136 


17 


12226 


02765 


13680 


B7 


READ 


1 U48 


49 


03066 


00000 


13690 CTAB 


DSAC 


3„LIS, 


17161 


00006 




137CU 


OSA 


LIST 


1 7166 


00005 17278 


137 10 


OSAC 


«2 


17173 


00006 





1372U 


DSA 


PCC 




17178 


00005 17350 


13730 


DSAC 


3..SPA, 




17185 


00006 




13740 


DSA 


SPACE 




17190 


00005 17310 


13750 


DSAC 


3,UNL, 




1719? 


00006 




13760 


DSA 


UNLIST 




17202 


00005 17330 


I mo 


DSAC 


i » DUM , 




17209 


00006 




13780 


OSA 


CUMPST 




17214 


00005 17370 


13790 


DSAC 


3, PR I, 




17221 


00006 




13800 


DSA 


PRNT2 




17226 


00005 17390 


13810 


DSAC 


3.EJE, 




1 7233 


00006 




13820 


DSA 


EJECT2 




17238 


00005 17410 


13830 


DSAC 


3, 




17245 


00006 




13840* 
















13850 F0UND6 


AM 


K83*6,5,10 




17246 


11 


17094 


00005 


13860 


SF 


K83*6 


,,, CONTROL FUNCTION FOUND - BRANCH TO IT 


17258 


32 


17094 


00000 


13870 


B7 


K83+6, ,6 




17270 


49 


17094 


00000 


13860 L 1ST 


TDM 


LIST2.-1 




17278 


15 


02303 


00001 


13890 DTYPE 


BNF 


SEAD,PCC2 




17290 


44 


03066 


02304 


139<!0 


B7 


TYPEC 




17302 


49 


17136 


00000 


13910* 
















13920 SPAOE 


BTM 


lnATY»RMARK 


.SPACE ONE LINE 


17310 


17 


12226 


02925 


13930 


B7 


CTYP6 




17322 


49 


17290 


00000 


13940* 
















13950 MNLIST 


TDM 


LIST2.0 




17330 


15 


02303 


00000 


13960 


B7 


CTYP6 




17342 


49 


17290 


00000 


13970* 
















13980 PCC 


TDM 


PCC2.-1 




17350 


15 


02304 


00001 


13990 


B7 


TYPEC 




17362 


49 


17136 


00000 


140C0 BUMPST 


TDM 


CUMPSW.-l 




17370 


15 


02305 


00001 


14010 


B7 


CTYPE 




17382 


49 


17290 


00000 


14020 PRNT2 


TOM 


PRINTRt-1 


9 3 


17390 


15 


02302 


00001 



14030 




B7 


CTYPE 


17402 


49 17290 00000 


14040 


EJeCT2 


BTP 


EJECT, DTYPE 


17410 


17 12400 17290 


14050 


INTRET 


OC 


10,0 


17431 


00010 


14060 


ZERO 


DC 


10,0 


1 7441 


00010 


14070 


ONE 


OC 


10, 1 


17451 


00010 


14040 


MASK 


DSAC 


11,00000000000, 


17473 


00022 


14090 




OSA 


ER90 


17478 


00005 16964 


14100 




OSC 


10,0 


17479 


00010 


14 110 




osc 


50,0 


1 7489 


00050 


14120 


»USH9 


DSAC 


50, 


, 17639 


00100 


14130 




DC 


It* 


17640 


00001 


14140 


CNNST 


DC 


20,0 


1 7660 


00020 


14150 




DSC 


20,0' 


17661 


00020 


14160 


THERE 


DS 


,ERP«>9 


13170 


00000 



14170* 

14180»««»»# ROUTINE TO PREVENT MEMORY CONFLICT WHEN REFERNCE 

14190»«»»*» STRING MUST BE CONTRUC TED 

142C0* 

14210 0HD8AR DAC •, 

14220 OHNI TFM PLACE.OH DEAR ,,,0F ALL THE RIDICULOUS THINGS 

14230 BTf< LOOK2,» + 12 

14240 BTI« CELET,»+:i2 

14250 TF PLACE, PL8 

14260 TF CURRT2 ,CURRNT 

14270 TR — CURRNT»OH DEAR- 1 

14280 AM CURRT2,4,10 

14290 BTM LOOK2,»*12 

14300 TF CURRT2 , LSTR3 

14310 TF CURRNT , CURRT2 

14320 TF CURENT-5, CURRNT 

14330 SM PAST, 10, 10 



4 



17683 


00006 




17688 


16 


03877 


17683 


17700 


17 


08190 


17712 


17712 


17 


09682 


17724 


17724 


26 


03877 


12011 


17736 


26 


06329 


03762 


17748 


31 


03762 


17682 


17760 


11 


06329 


00004 


17772 


17 


08190 


17784 


17784 


26 


06329 


02232 


17796 


26 


03762 


06329 


17808 


26 


05125 


03762 


17820 


12 


03548 


00010 



14340 
14350- 

14360 QUOTE 



TF 
87 
DAC 



1417.0 LAST DAC 
14380 OEND 



-PAST.CURENT 
CH MY 
08, QUOTE 
L, , 
START-12 



,, .SPECIAL STRING WHICH CONTAINS ONLY A QUOTE 



17832 26 03548 05130 
17844 49 05632 00000 
17853 00016 
17869 00002 
02934 
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SYMBOL TABLE 



UNLIST 


17330 


TRLOOP 


09850 


SUBPSH 


SUBCLL 


05014 


SUBCHK 


04033 


SUBCAL 


SEARCH 


03114 


SBCLAR 


05078 


SBCKOT 


SBCKCL 


04359 


RETURN 


10806 


RETCOL 


PRINT2 


11394 


PRINTR 


02302 


PLACE2 


OHDEAR 


17683 


NOFIND 


08630 


MYPARN 


LUCKY2 


12432 


LOOKUP 


07962 


LKEVAL 


KALSUB 


12606 


J I0NF2 


14138 


INTRET 


FORGT2 


10406 


FORGET 


10178 


FIXEOL 


FINCRM 


12296 


FINCC1N 


10662 


FILLEM 


ERRRR5 


05251 


ERRRR4 


05223 


ERRRR3 


DUfPST 


17370 


DEFINE 


08248 


C34DIG 


CURENT 


05130 


CONTRL 


16976 


C0NST8 


COLRET 


08593 


COLO IF 


09395 


CHLBOT 


BRTAB2 


15865 


BRANHS 


10774 


BRANHF 


BNRTST 


08618 


BACK I N 


09590 


AROUND 


ADC 


06526 


A0C2 


06902 


ARN65 


B 


15550 


BB 


12080 


BK81 


BLCOP 


15646 


BRTAB 


15133 


B2 


CHLB 


03318 


CL AST 


06045 


CNNST 


CCNST 


09942 


CORE 


02957 


CTAB 


C0021 


12243 


C03 


03291 


C04 


C 14 


06351 


C20 


07019 


C21 


C2'i 


1397" 


C33 


05757 


C34 


C61 


07111 


C62 


10831 


C70 


OEL6T 


09682 


DFINE 


08248 


DIV 


DTYPE 


17290 


DUPP 


11928 


E 


ENCC 


04870 


EPROG 


10881 


ER 


ERP 


13161 


ERROR 


11844 


ERRRR 


ERC3 


08310 


ERC4 


08726 


ER05 


ERU 


12890 


ER12 


11098 


ER15 


EV 


06646 


EV AL 


05926 


EVRET 


EXTRA 


07506 


F 


15264 


FF 


FINK 


14810 


FLuo 


07314 


FOUND 


GET2 


12130 


GCT" 


05452 


G0T02 


HP32 


08546 


I 


14284 


I I 


JICNF 


14278 


JI0N7 


06354 


JI0N8 


KALSB 


12654 


K INDF 


13626 


KKRET 


KSP 


06833 


KSTR4 


07893 


KSTR5 


LIST 


17278 


LISTS 


06857 


LIST2 


LLIT 


08890 


L0CK2 


08190 


LPPP 


LSTR2 


02222 


LSTR3 


02232 


LUCKY 


MUL 


06566 


MUL2 


06942 


NEXT 



OHM 


17688 


OK 


03756 


OK 2 


ONIO 


06422 


ON 28 


07730 


0N62 


0N83 


07814 


0N87 


04590 


0N88 


OVLP 


03841 


PAST 


03548 


PCC 


PINT 


07673 


P I T 


02751 


PLACE 


PL8 


12011 


PNRET 


11386 


POT 


PRNT2 


17390 


PUCK 


14390 


PUNCH 


PUSH9 


17639 


QBL 


06102 


QBL2 


R 


15350 


READ 


03066 


READC 


RET9 


06010 


RIG 


08702 


RMARK 


SCAN 


13602 


SF1 AG 


14846 


SF89 


SPACE 


17310 


SPCG 


03900 


START 


SUBCL 


05060 


SUB2 


06922 


sue 


SV203 


12985 


TBK81 


07902 


TDUMP 


TFK8K 


11362 


THERE 


13170 


TNEXT 


T796 


11976 


VG 


12998 


VG2 


WtCOP 


14894 


WORK 1 


13581 


W0RK2 


WTY 


05524 


YEAH? 


10774 


YEAH3 



12555 


SUBOUT 


12902 


SUBLST 


02323 


12558 


SLINDC 


03100 


SKIPIT 


02994 


04106 


SBCKLP 


04046 


SBCKFD 


04398 


09422 


REGUL2 


14158 


PUNCH2 


11458 


06341 


PERMIS 


07971 


PARCNT 


14179 


03950 


MATCHS 


15530 


MATCHF 


15912 


09218 


LENGTH 


02309 


KNLOOP 


16206 


17431 


INDIR5 


09018 


F0UND8 


17246 


14698 


FINLKP 


08502 


FINISH 


16098 


14342 


FAILED 


07914 


ERRRR6 


04361 


05197 


EJECT2 


17410 


OUMPSW 


02305 


13045 


CURRT2 


06329 


CURRNT 


03762 


16872 


CUNST2 


10718 


CONARN 


10510 


03434 


BRTAB4 


16277 


BRTAB3 


15983 


10794 


BRACHS 


10774 


BRACHF 


10794 


16456 


ADVANC 


12986 


A 


15892 


11610 


ARN66 


11702 


A2 


16010 


07778 


BK82 


07614 


BLNCD 


14606 


16066 


CF8 


16804 


CHECK 


03866 


17660 


COLCT 


09362 


COLE 


05536 


17161 


CURRT 


10340 


COO 


03135 


14147 


CIO 


06419 


C13 


06795 


06363 


C22 


08417 


C23 


07043 


03195 


C40 


03293 


C56 


13931 


06655 


DC A 


02926 


DEC 


15806 


06634 


DI V2 


07194 


DSCOO 


07249 


07518 


EJECT 


12400 


END 


05287 


03742 


ER I 


03678 


ERMES 


11827 


05143 


ERRR2 


05173 


ERR 1 


03696 


09766 


ER07 


14486 


ER10 


08066 


14594 


ER9 


07802 


ER90 


16964 


06900 


EXP2 


07010 


EXP3 


07102 


11130 


FINAR 


07242 


FIND 


17031 


08738 


FS 


11110 


GET 


12082 


11154 


G089 


05288 


HP20 


03574 


13945 


INPUT 


02765 


INT 


07566 


07458 




15160 


KAL FD 


12710 


11548 


KMKM 


12782 


KONST 


16304 


09904 


K83 


17088 


LAST 


17869 


02303 


LKRET 


06281 


LKUP 


06210 


13922 


LP65 


11542 


LSTR 


08629 


12264 


M 


15517 


MASK 


17473 


06737 


NOTME 


03598 


OHMY 


05632 












04738 


0K4 


04498 


ONE 


17451 


09598 


0N63 


10902 


ON638 


10958 


04430 


0N9 


06138 


OVLAP 


03816 


17350 


PCC2 


02304 


PEKMT 


07998 


03877 


PL2 


07149 


PL6 


14125 


02723 


PPT 


02737 


PRINT 


11258 


11426 


PUSH2 


05919 


PUSH4 


08183 


06386 


QUENT 


05140 


QUOTE 


17853 


11746 


REGUL 


13766 


RETLK 


08846 


02925 


RULE2 


15014 


SBCK2 


04274 


16660 


SHIFT 


16575 


SIZEF 


15782 


02946 


SUB 


06546 


SUBCK 


04297 


10783 


SUC2 


11152 


SV100 


14169 


08714 


TFM 


11338 


TFMZ 


10754 


05961 


TR 


04558 


TYPEC 


17136 


13046 


W 


14241 


WAT Y 


12226 


14321 


W0RK3 


15307 


W0RK4 


15328 


10822 


Z 


07398 


ZERO 


17441 
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12560A BNF 0ECWORKU20 

12550BRTAB2DSA A, MATCHF £12,DEC, DEC, BR ACHF, OEC 



G4CI0A80 TFM EVRET , ADD2 ,,,SET UP CORRESPONDING RETURN 
0393C BE ADO 

04 AC AC C 2 A ICINTrIt ~ 

04C1CADD TFM EVRET ,A0D2 ttiSET UP CORRESPONDING RETURN 



1024OADVANCTFM PARCNT,0,10 * . , SUBPROGRAM TO ADVANCE TO MATCH PAENTHESIS 

08570 BTM ADVANC ,0N638U2 

115 1 C BTM ADVANC, »C12 



08940A«N65 AM LKRET, 1.1C 

0891C BNR ARN65 ,-KKRET 



09C10AAN66 TD -KKRET.-LKRET 

08950 BNR ARN66 »— LKRET 



1303OARCUNDBTM DELET,»E12 

12950 BD AROUND, DEF I NE 



12990 BH AROUND 



12650A2 AM 1,21,10 



1264CBRT AB3DSA A2 , B2 , MATCHF&12, MATCHFC 12, A2, MATCHFC 12 
12640BRTAB3DSA A2, B2 , MATCMF&12, M ATCHFS 12, A2 , MATCHF612 



122608 TF N0RK2£9,W0RK1£9 



1194CBRTAB DSA F,B,F,K, FI NI SH,R 
12720 B7 BC12 



07CC0BACK INB7 -C0LCT61 

08660 B7 BACK IN 



0943080 BB2 

C95CC BNL BB 



05230BK81 AM LKRET, 2»10 



05340 B7 BK81 

05350TBK81 BNF BK81 ,FLAG 



05C80BK82 C LKRET, LSTR3 , , , CHECK FOR ENO OF STRING 

0524C BNR BK82»-PINT 



11490BLNCD AM PLAOE.2.10 ,,,BALNCED STRING 
11290 BE BLNCD 



12360BtOBP AM M0RK2£9„2,10 



12420 B7 BLOOP 

12440 BNE BLOOP 

12470 B7 BLOOP 



06 120BNRTSTBNR HP32,»-»,7 ,,,TEST FOR END OF TABLE 



06030 B7 BNRTST-12 

06060 BNE BNRTST-12 ,,,NO - GO ON TO NEXT ENTRY 



0814CBRACHFTDM SUCO 



08130 B7 BRACHF612 

08150BRANHFDS .BRACHF 

12480SIZEF BNF BRACHF, SFLAG ,,,SCAN FAILURE IF SFLAG NOT SET 

12550BRTA82DSA A, MATCHFE12.DEC, DEC, BRACHF, DEC 



081COBRACHSTDM SUC-1 

0811C8RANHSDS , BRACHS 



9 9 



G8150BRANHFDS .BRACHF 

0539C 87 8RANHF 



081 108RANHSCS » BRACKS 



03130 BE BRANHS 

C3320 BE BRANHS 

08CC0 BE BRANHS 

0817CYEAH2 DS iBRANHS 

13440 BE BRANHS 



II940B*TAB OSA F , B , F , K , F IN I SH.R 

1191C TFM »E30,BRTAB, 711,, .COMPUTED GOTO 

125508RTAB2DSA A , M ATCHF £12, DEC ,DEC .BRACHF, DEC 

12520 TFM •£30.BRTAB2,7ll 



12640BATAB3DSA A2 , E 2 ,MATCHF£ 12 , M ATCHF612 , A2 , MATCHFC12 

1261C TFM •e30,BRTAB3,7U 



12890BRTAB4DSA KONST , KONST, KONST ,KNLOOP «CONST8 ,KNLCOP 

12860 TFM »e30,BRTAB4,711 



127C0B2 AM 1,21,10 .REMATCH BALANCED STRING 

1264CBRT AB3DSA A2 , B2 , MATCHF61 2, MATCHFS 12, A2, MATCHFE12 



13330CF8 CF •-• 



0369C TF CF8t6,CURRT2 

C3780 CF -CF8-6 

0414C TF CURRT2 »CF8£6 

13250 TF CF8£6,CURRNT 



01570CMECK C CCO .CHECKS 1 1 , 1 1 ,, SQUEE ZE OUT EXTRA BLANKS 

0101C TFM CHECKGll, INPUT 

0131CHP20 BO CHECK, DEFINE 

01 340 BE CHECK ,,. OR BLANK 

C139C 87 CHECK 

1UII 



01570CHECK 
01610 

C167CPLACE DS 
0214C 
02160 
02350 
C236C 
02360 



C COO, CHECKS 11, 11., SQUEEZE OUT EXTRA BLANKS 

C C 34, CHECKS 11 , 11 , , CHECK FOR 3 

"I .CHECK61 1 

TF TR£6,CHECK£11 

TF TRCll.CHECKEll 

AM CHECKtll.2,10 

BNR CHECK, CHECKE1 1,11 , , .CHECK FOR END OF CARD 

BNR CHECK, CHECKtll, 11 ,,,CHECK FOR END OF CARD 



01C60CHL8 C 



CCC-PLACE ,,,FIND END OF LABEL 

C1120 BNR CHLB, -PLACE 



01180CHLBOTTFM 



PERMS, 00, 9 ,,,SET UP LINKAGE TO TABLE LOOKUP ROUTINE 
01C9C BE CHLBOT 



03530CLAST DS 



C354C 
06690 
06710 
1021C 



TF 
TF 
TF 
TF 



CLAST .PUSH2-5 ,,,PULL UP PUSH DOWN LIST 
LKRET.CLAST 
CURRT2, CLAST 
CLAST, 2294 



14140CKNST DC 20, C 



0504CINT 
05050 



TFM 
TFM 



CNNST-10,0 
PINT.CNNST-10 



06SC0CQLCT TFM C0LCIF,-1,9 . , .SUBROUTINE TO FIND END OF STRING NAME 



05970 BTM 

06850 TFM 

06920 BNE 

06930 BO 
07000BACKINB7 

07020 BL 

07040 BE 

07060 BE 



COLCT,»£12 
COLCT-l.FINLKP 

-COLCTtl 
-COLCTU.PERMIS 
-COLCT61 
C0LCTE24 
C0LCTS24 
C0LCTE24 



06830C6LOIFDC 



3,0,«-2 



01070 

0111C 

01240 

01250 

06050HP32 

06200 

06400 



TFM 
AM 
A 
A 

C 

CM 
TO 



COLDIF.-1.9 
COLDIF.2.IO 
2218C4.COLDIF 
221869, COLOIF 
COLDIF.-LSTR 
COL0IF.5.1O 
COLDIF.RMARK 

10 



,., CHECK FOR SAME LENGTH 

INDICATE VARIABLE NOT TO BE DELETED 



06620 


TF 


06730 


TD 


06800COLCT 


TFM 


06900 


A 


069 1 G 


C M 


07110 


A 


07170 


S 


07350CONST 


8NR 


07560 


TF 


07760 


TFM 


07890 


A 


C9070 


TD 


09890 


S 


12930 


BNR 


13C1C 


A 



COLDIF, LSTR3 

COLD IF ,RMARK ,,, INDICATE NOT TO BE DELETED 
COLDIFt-1,9 ,, .SUBROUTINE TO FIND END OF STRING NAME 
COLDIF, 99 

COLDIF, 11, 10 ,, .CHECK FOR I/O INDICATION 
2218G29, COLDIF 
LSTR2 .COLDIF 
•620, COLDIF 
FORGT2C2 3 .COLDIF 
COLDIF, •-• 

CURRT2. COLDIF ,, .CHECK IF CONSTRUCTED STRING IS NULL 
COLDI F tRMARK 
KALSUBC6, COLDIF,, RECOVER SUBROUTINE NAME 
•620, COLDIF 
SHIFT, COLDIF 



03C90CELE BNC2 



• £24 



,, .CHECK THE INTERRUPT SWITCH 
03C30 BNC1 COLE 



,, .CHECK IF TRACE SWITCH IS ON 



06C90CBLRETDC 5,0,< 



012CC TF COLRET, PLACE 

C121C SM COLRET, 2, 10 

0608C C -2218-4, -COLRET,., NOW CHECK FOR SAME LABEL 

0618C C END— 2. -COLRET ,, .CHECK FOR END CARD 

0658C TF COLRET, LSTR3 

C6860RETCOLTF COLRET, PLACE 

06870 SM COLRET, 2. 10 

0694C C PIT610,-COLRET 

0696C C POTC10.-COLRET 

06980 C PPTtlO.-COLRET 

C741C A CURRT2, COLRET 

07120 TF -CURRT2, -COLRET 

1318C A CURR NT .COLRET 

13190 TF -CURRNT, -COLRET 



07810CCNARNBTM DELET»*E12 

C7790 BE CONARN 



07350CCNST BNR •E20.CCLDIF 



C33CC 
C8060 



BE CONST 
B7 CONST 



08020CENST2TF TFM2C11, PLACE 

13160 BE CONST2 



1 !) 



134C0C0NST8TFM PLACE,*-* 



1168C TF CONST8611, PLACE. .PLACE MAY BE DESTROYED LATER 

1289CBRTAB4DSA KONST. KONST, KONST , KNLOOP.CONST8, KNLOOP 



13520CCNTRLBNR 



»£2C*INPUT£2 ,, .CONTROL CARD DECODER 
00960 BE CONTRL 



00710CCRE DS . START611 



0O7CC BNF SKIPIT.CCRE 

00720 AM CORE, 20000 

00730 TR — CORE » RM ARK- 1 

00790 TF PAST .CORE 



13690CTAB DSAC 3. LIS. 



13620 



TFM «ei8,CTAB 



02730CUR€NTDC 10, C 



0251C 
0295C 
0296C 
0795C 
07960 
13360 
13370 
14320 
14340 



TF 
TF 
TF 
TF 
TF 
TF 
TF 
TF 
TF 



-PAST.CURENT 
CURENT— 5 , CURRNT 
-PAST.CURENT 
CURENT-5, CURRNT 
-PAST.CURENT 
CURENT-5, CURRNT 
-PAST.CURENT 
CURENT-5, CURRNT 
-PAST.CURENT 



03340C6IRRNTDS »0KC6 



00810 


TFM 


01230 


TF 


01380 


SM 


01510 


C 


02530 


TF 


02580 


TF 


02690 


TF 


02890 


TF 


02930 


TR 


02940 


AM 


02950 


TF 


03110 


TF 


05580 


TF 


07100 


TF 


07200 




07390 


If 


0744C 


SF 



,,,GO BACK OVER REC MARK 
, ♦ , CHECK FOR OVERLAP 

,,,SAVE END OF PROGRAM 
...MOVE NEXT AVAL. CORE TO HIGH INDIC. 
,,,UP DATE CURRENT HIGH CORE 



CURRNT .LAST— 1 
2218E4, CURRNT 
CURRNT, 2, 10 
CURRNT, PAST 
EPROG, CURRNT 
434. CURRNT 
CURRNT, 434 
QUENT-5. CURRNT 
-CURRNT, QUOTE-1,., CREATE STRING CONTAING QUOTE S3n 
CURRNT, 14, 10 
CURENT-5, CURRNT 
CURRT2, CURRNT 
CURRT2, CURRNT 
22 18 £24, CURRNT 

CURRNT, LSTR3 ,,,,UPOATE NEXT AVAL. CORE 

CURR T2 .CURRNT 

-CURRNT 

10 3 







i " J u 


TF 


07950 


TF 


09290 


TR 


129 1 C 


TF 


13090 


TF 


13160 


TF 


13170 


S 


1316C 


A 


13190 


TF 


13220 


AM 


13230 


TR 


13240 


AM 


13250 


TP 


13270 


S 


13280 


A 


133CC 


TR 


13310 


TF 


13340 


AM 


13360 


TF 


14260 


TF 


14270 


TR 


1431C 


TF 


14320 


TF 



CURRT2 tCURRNT 
CURRNT, CURRT 
CURENT-5 .CURRNT 
— CURRNT »RM ARK- 1 
CURRT2 tCURRNT 
CURRT2 tCURRNT 
SF89&6, CURRNT 
CURRNT.KSP 
CURRNT.COLRET 
—CURRNT.— COLRET 
CURRNTtltlO 
-CURRNT, OSCOOC1 
CURRNT, 2, 10 
CF8E6.CURRNT 
CURRNT »W0RK1 £9 
CURRNT, WCRK2 £9 
-CURRNT, DSCOOEl 
-CURRNT. -WGRK2-9 
CURRNTtltlO 
CURENT-5 tCURRNT 
CURRT2 tCURRNT 
-CURRNT. OH DEAR-1 
CURRNT, CURRT2 
CURENT-5, CURRNT 



0769OCBRRT DS 



,•-5 



07580 
0764C 
07650 
07660 
07680 
07700 
C7720 
07860 
07870 
07930 



TF 
SM 
S 
A 

TR 
TF 
AM 

S 

SM 
TF 



CURR T.CURRT2 

CURR T.ItlO 
CURRT .W0RK1E9 

CURR TtM 

-CURR T, DSCOOEl 

-CURR T.-M 

CURR T.3,10 
CURRT, LSTR3 

CURRT.2,10 

CURRNTtCURRT 



i , MOO I FY BY AMOUNT OF SHIFT 



O3790CDRRT2OC 



0311C 
03460 
035C0RET9 
0351C 
03690 
C371C 
03720 
03770 
03820 
0384CJION7 SM 
C414C TF 
0498CE TR 



0499C 
05000 
055AC 
05720 
0668C 



S 

AM 
TF 

C 

SM 



CURRT2 tCURRNT 
PUSH2-5,CURRT2,,, POINTERS TO THE OUTPUT AREA 
-CURRT2,DSC00£2,,SET TRAILER RECORO MARK 
CURRT2,2,10 
CF8E6.CURRT2 
CURRT2.LKRET 
CURRT2 ,LSTR3 
-CURRT2.-LSTR3 
CURRT2,3,10 
CURRT2 f 2,10 
CURRT2,CF8£6 
-CURRT2,-Z-6 
CURRT2.Z&6 
CURRT2t81,10 
CURRT2, CURRNT 
CURRT2 ,PAST 
CURRT2,2,10 



♦CHECK FOR CORE OVERLAP 



1 04 



C67CC 
0671C 
07390 
07400 
0741C 
07420 
07450 
C7460 
07470 
07500 
0751C 
07540 
0758C 
07730 
0774C 
07880 
0789C 
07900 
07910 
10050 
10100 
10750 
10770 
1291C 
1309C 
14260 
14280 
14300 
14310 



TF 

TF 

TF 

S 

A 

TF 

AM 

TR 

AM 

S 

A 

TF 
TF 
SM 
CF 
TF 
A 

AM 
BNR 
TF 
TF 

C 

TF 
TF 
TF 
TF 
AM 
TF 
TF 



LSTR3 »CURRT2 
CURRT2.CLAST 
CURRT2, CURRNT 
CURRT2.KSP 
CURRT2tCOLRET 
-CURRT2.-C0LRET 
CURRT2,1.10 
-CURRT2.0SC00&1 
CURRT2.2,10 
CURRT2, THERE 
CURRT2.ERPC9£21 
-CURRT2.-ERP-9-21 
CURR T,CURRT2 
CURRT2.2tl0 
-CURRT2 
CURRT2. CURRNT 
CURRT2.COLDIF 
CURRT2.4.10 
•620,-CURRT2 



tttCHECK IF CONSTRUCTED STRING IS NULL 



W B£U| 1»URR I C t 

SUBPSH— 5 tCURRT2 
SUBPSH.CURRT2 
CURRT2.LSTR3 
CURRT2tLSTR3 
CURRT2, CURRNT 
CURRT2 tCURRNT 
CURRT2, CURRNT 
CURRT2,4,10 
CURRT2.LSTR3 
CURRNT t CURRT2 



, tOONT PUT NULL STRING IN SYMBOL TABLE 



00«9OCOC DAC 



OO900 

01080CHLB 

01570CHBCK 

03250 

C3590Q8L 

03880QBL2 

04240 

08210 

08430 

10610 

13560 



COO, SEARCH £6 til,, IS IT A BLANK 
COO, -PLACE ,,,FIND END OF LABEL 
COO, CHECKEll, 11, .SQUEEZE OUT EXTRA BLANKS 
,, .CHECK FOR A BLANK 
tttCHECK FOR BLANK 
,,,SKIP BLANKS 



COO, -PLACE 
COO, -PLACE 
COO, -PLACE 
COO, -PLACE 
COO, -PLACE 
COO.-PLACE 
C0O,-PLACE 
COO,»-» 



,,, BLANK 



095SOCa021 DSAC 2, /,»-6 



02210ON87 C C0021, -PLACE ,, , CHANGE GOTO / CODDING TO 61 



01050Q03 DAC lt.,»-2 



01780 
05930 
07030 



C C03»— SUBCHK ,,, CHECK FOR A PERIOD 
C C03.— PLACE 
C C03,-PLACE 



1«5 



11060C04 



OAC 2 



0207CQN68 


C 


C04, -PLACE 


03620ON9 


C 


C04t— PLACE 


06740 


C 


C04. -PLACE 


10080 


C 


C04»— PLACE 


10130 


C 


C04»— PLACE 


10340 


C 


C04.— PLACE 
C04,-W0RK2-9 


12300 


C 


12430 


C 


C04.-W0RK2-9 



• 1 1 CHECK FOR a 



,,, CHECK FOR CLOSE PAREN 
1 . 1 COMPARE FOR ■ 



03910CIO OAC lfCt»-2 



039200N10 C CIO. -PLACE ...CHECK FOR 6 
C5260ON83 C C10.-LKRET 



04270C13 OAC l,$,»-2 



0588C 
13070 



C C13, -PLACE 
C C13.— PLACE 



03830C14 DAC l,«,»-2 



03960 


C 


C14* 


-PLACE 


04C70 


C 


C14* 


-PLACE 


10640 


C 


C14* 


-PLACE 


1131CPUCK 


C 


C14, 


-PLACE 


11460 


C 


C14. 


-PLACE 



04510C20 OAC l,-,»-2 



C394C 
05280 



C C20. -PLACE ...CHECK FOR - 
C C20.-LKRET 



03850C21 DAC l,/,»-2 



0398C C C21 .—PLACE ... CHECK FOR / 

11330 C C21, -PLACE,, ,, , CHECK FOR A SLASH 

11440 C C21. -PLACE 



05920C22 DC 2,22.» 



059CC C C22,— PLACE 

07050 C C22. -PLACE ... CHECK FOR A RECORD MARK 



04540C23 DAC l,,,*-2 



C C23»— PLACE 



1 Oo 



109C0C24 CAC l.S. »-2 



01660 


C 


C24, -PLACE 


03140 


C 


C24, -PLACE 


05840 


C 


C24, -PLACE 


C598C 


C 


C24, -PLACE 


0841C 


C 


C24, -PLACE 


0854C 


C 


C24, -PLACE 


1031C 


C 


C24, -PLACE 


11280 


C 


C24. -PLACE 


12320 


c 


C24.-W0RK2-9 


1239C 


c 


C24.-W0RK2-9 



...CHECK FOR OPEN PAREN 

...CHECK FOR A CONTRUCTED REFERENCE STRING 



,,, CHECK FOR 8ALNCED STRING 
... CHECK FOR OPEN PAREN 



03280C33 DAC l,#,»-2 



03290 
10680 
13450 



C33. -PLACE 
C33, -PLACE 
C33»— PLACE 



0095OC34 DC 2,34,«-2 



01610 
05860 
06440 
10260 
1135C 



C34, CHECK611.il., CHECK 

C34,-PLACE 

C34, -PLACE 

C34, -PLACE 

C34»— PLACE 



FOR a 



102S0C34OIGDS 



1028C 
103CCVG2 



TD 
BD 



C34DI6.2310 
VG.C34DIG 



01040040 OS 



C1720 C C40.-SUBCHK . , .CHECK IF SUBROUTINE CALL 

01760 C C40»— SUBCHK ... CHECK FOR NUMBER OR LETTER 

05950 C C40»— PLACE 

07C1CON62 C C40, -PLACE 



10840CSS DAC l.F,*-2 



01860 
08390 



2218C11.C56 
C56. -PLACE 



i . .CHECK FOR FOR NAME OF F , S, /, /F, OR /S 



046I006I DC 2,61»*-2 



019CC 



2218611. C61 



107 



01920 

03120 

0331C 

03640 

07990 

0828GON63 

10660 

13430 



C61.2218C9 
C61, -PLACE 
C61, -PLACE 
C61 »— PLACE 
C61, -PLACE 
C61 .—PLACE 
C61 .-PLACE 
C61, -PLACE 



,,,FIND DIVIDING SLASH 
,, .SLASH 



082COC62 DAC l,S,»-2 



0188C C 2218G11.C62 

0837C C C62, -PLACE 



04130CT0 DAC 1.0.»-2 



05190ON28 C C70.-LKRET 



006>S«0CA DCA « INPUT 



08920 PUT DCA 

C898C PUT DCA 

C945CGET GET OCA 



,,,READ INPUT CARDS ROUTINE 



125C00fC 



1,21,10 



,,,SUE FAILURE 



1255CBRTAB2DSA 
1255C8RT A82DSA 
12550BRTAB2DSA 
12560A BNF 



A,MATCHF£12,DEC,DEC,BRACHF,DEC 
A. MATCHF£12»DEC»DEC» BRACHF, DEC 
A, MATCHFE12.0EC, DEC, BRACHF, DEC 
DECWORK1G20 



057600EFINEDS 



01190 TDM DEFINE.-l 

C1310HP20 BD CHECK, DEFINE 

05750 TDM DEFINE.-l 

0577CDFINE DS .DEFINE 

06390LLIT TDM DEFINE, 0,10 

C6530 TOM DEFINE.-l 

07140 BD -DELETC1, DEFINE,, SKIP DELET 

0777C TDM DEFINE.-l 

C7850 BD »£24, DEFINE 

0908C TDM DEFINE. 

12950 BD AROUNO.DEFINE 



IF STRING NOT DEFINED 



07CB0DCLET TF 22 1 8 &29, SBCKCL-4, .CREATE NEW SYMBOL TABLE ENTRY 



07140 
0731G 



BD -DELETE1, DEFINE, .SKIP DELET IF STRING NOT DEFINED 
B7 -DELETS1 



C7840CONARNBTM DELET, »U2 
13030AROUNDBTM DELET, »E12 
14240 BTM DELET, «612 



05770DHNE OS * DEFINE 



0634C TDM OFINE.O 



1 OS 



04110DIV TFM EVRET ,DIV2 

03990 



BE OIV 



047C00IV2 LD 99,10 ...THE DIVISION ALGORITHM 

0411CDIV TFM EVRET ,DIV2 



04750DSC0G CSC 4,CC0a,»-4 



03500RET9 


TR 


-CURRT2.DSC00E2..SET TRAILER RECORD MARK 


07460 


TR 


-CURRT2.0SC00U 


07680 


TR 


-CURR T.OSCOOtl 


13230 


TR 


-CURRNT.DSCOOC1 


13300 


TR 


-CURRNT.DSCOOC1 



13890DCYPB BNF REAC.PCC2 



13930 


B7 


DTYPE 


13960 


B7 


OTYPE 


14010 


87 


DTYPE 


14030 


87 


OTYPE 



14040EJECT2BTM EJECT, DTYPE 



09280DW1P BNF 1796.DUMPSW ...THE DUMP MEMORY ROURINE 

C6220TDUMP BTM EJECT, DUMP 
09420 B7 DUMPC24 



14CC0DOWSTTDM DUMPSW.-l 

13780 DSA OUMPST 



OC©90D«IM»SWDSC 1,0 



C9280DUMP BNF T796.DUMPSW ,,,THE OUMP MEMORY ROURINE 
14000DUMPSTTOM OUMPSW.-l 

109 



04960E TR -CURRT2.-Z-6 

UNREFERENCED ••» 



09760EJECT BD LUCKY2 »PR I NTR », f EJECTION SUBROUTINE 

015*0 BTM EJECTf 796 

0248CENDC BTM EJECT, »C12 

06220TDUMP BTM EJECT, DUMP 

09250 BTM EJECT, »£12 

09320T796 BTM EJECT, 796 

0978C B7 -EJECTtl 

0980C B7 -EJECTtl 

14C40EJECT2BTM EJECT, DTYPE 



14C40E«CT2BTM EJECT, DTYPE 

13820 DSA EJECT2 



02840EKC DSAC A, END 



08250EPROG DS ,• 



C115C C 1 NPUT64.END— 2 , , , MAYBE END CARD WITH MO LABEL 

02430 C INPUTC6.END 

06180 C END— 2»— COLRET , , , CHECK FOR END CARD 



O2480ENCC BTM EJECT»»812 

01170 B7 ENDC 



02530 TF EPROCCURRNT ,,,SAVE END OF PROGRAM 



1460ER DS 



00780 TDM ER»0 

C145C TDM ER.l 

02490 BD 796, ER 



,,, RESET ERROR INDICATOR 



014C0ERI BTM ERR 1, ERRRR 



0114C BNE ERI 

C116C BNE ERI 

01360 BNE ERI 



1 1 



092COERHES DMES , A, ERROR 0%Eo 

09270 BTM WATY.ERMES 



1043OERP DSS 21«20 



03220 TF ERP£9£21, THERE 

07480 C THERE, ERPE9&21 

C751C A CURRT2,ERPG9£21 

0752C AM ERP£9£21,1,10 

07530 S ERP69&21, SHIFT 

0754C TF -CURRT2,-ERP-9-21 

10570 TFM I.ERP621 

10820 TFM II.ERP 

1171C TF ERPC9C21 , THERE 

11720 TFM I,ERP ,,.SET UP W VALUES 

11730 TFM ERP£15,0.10 

1181C TFM ERP£15,20,10 

11830 TFM I,ERPG21 ,,,SET UP I 

12810 TFM I.ERPE21 ,,, CONSTRUCT FILLED STRINGS 

14160THERE DS ,ERPt9 



092106RR8R SM PL8 ,1,10 



ERROR MESSAGE ROUTINE 



C31C0 

C5250ER9 

05370 

05660ER10 

05830ER03 

06230ER04 

06760 

07160ER05 

0801C 

0845GER12 

09240 

1015CER11 

11390ERO7 

1148CER15 

13470 

134SOER90 



BTM 

BTM 

BTM 

BTM 

BTM 

BTM 

BTM 

BTM 

BTM 

BTM 

TD 

BTM 

BTM 

BTM 

BTM 

BTM 



ERROR, 07100 
ERROR, 7900 
ERROR, 17300 

ERROR, 17000 
ERROR, 07300 
ERROR, 07400 

ERR0R»07200 
ERROR, 07500 
ERROR, 7600 
ERROR, 17200 
ERROR— 1,RMARK 
ERROR, 17100 

ERROR, 07700 
ERROR, 17400 
ERROR, 17500 
ERROR, 07800 



02750ERRRR OMES , A, ERROR IN LABEHEa 

C1400ERI BTM ERR1 , ERRRR 



02790E«R«R3DMES ,A,5 UN8 ALANCEDlEn 

02370 TFM ERR1— 1,ERRRR3 



1 1 1 



02*lflERRRR4DAC 14, Jn UNBALANCE03, 

0239C TFM ERR1-1 .ERRRR4 



02820EARRR50MES .A. REPEATED LABELSEn 

01320 BTM ERR1 «ERRRR5 



02020E*RRR6DMES ,A,NO SUCH SUBROUT I NESEn 

02CC0 BTM ERR1 »ERRRR6 ,« t « TELL THEM YOU DID NOT FIND IT 



02770ERRR2 DMES , A, INCORRECT /»E" 

C2310 BTM ERR1,ERRR2 



01420EKR1 


BD 


•E24,LIST2 










C132C 


BTM 


ERR1.ERRRR5 






014C0ERI 


BTM 


ERR1 tERRRR 






01440 


BT 


WATY.ERR1-1 






02000 


BTM 


ERR1 tERRRR6 ,,,,TELL THEM YOU DID NOT FIND IT 






C231C 


BTM 


ERR1.ERRR2 






0237C 


TFM 


ERRl— 1,ERRRR3 






02380 


BO 


ERRl.OK2C.il tt ,ERORR IF 3 NO BALANCED 






02390 


TFM 


ERR 1—1 .ERRRR4 


■ii .1 i «■ - . . 




02400 


BD 


ERR1,0K2£8 ,, .BRANCH IF PARENTHESIS UNBALANCED 


05830EWG3 


BTM 


ERRCR 1 07300 










C66CC 


BNH 


ER03 


06230W04 


BTM 


ERRCR t 07400 











05960 


BH 


ER04 


0716OER05 


BTM 


ERRCR, 07500 




/ 








S? 


CDQ5 


1I390ER07 


BTM 


ERROR, C77C0 










11320 


BE 


ER07612 






11340 


BE 


ER07612 






1136C 


BE 


ER07 ,,,NO LITTERALS ALLOWED IN FILLER DEFINITION 










112 






1161C 


B7 


ER07 


— ... — .. — 




1294C 


B7 


ER07 


05660ER1Q 


BTM 


ERROR, 17CC0 










C6190 


BNE 


ER10 






0621CRIG 


BNE 


ER10 


1015OER11 


BTM 


ERRCR, 17100 










UNREFERENCED ••» 


08450E?R12 


BTM 


ERRCR, 17200 










0fl530 


B7 


ER12 


-*■ ■•• 




08550 


BNE 


ER12 


1I480ER15 


BTM 


ERROR, 17400 










11560 


B7 


ER15-24 






11660 


B7 


ER15-24 


05250BR9 


BTM 


ERRCR, 7900 










04170 


B7 


ER9 






0448G 


BNE 


ER9 






04550 


BE 


ER9 






04670 


BNE 


ER9 






04760 


BV 


ER9 






0515C 


BNE 


ER9 













134eOE«9« 


BTM 


ERRCR, 07800 










0338C 


DSA 


ER90 






05670 


DSA 


ER90 






09840 


OSA 


ER90 






09990 


B7 


ER90-12 






14090 


DSA 


ER90 


O4120EV 


AM 


PLACE, 2, 10 










04020 


87 


EV 






04040 


B7 


EV 






04080 


BNE 


EVE 12 






04100 


87 


EV 



03420EVAL TR PUSh2 - 



99.PLSH2- 89 



0343C TF 
06670LKEVALBTM 
C757C BTM 
1007C BTM 
10120 BTM 



PUSH2.EVAL-1 

EVAL,»612 

EVAL,*£12 

EVAL,»£12 

EVAL,»£12 



,,,PUSH2 TO IS A PUSH DOWN LIST WITH 



0439OEVRET OS 



C4010ADD 


TFM 


EVRET 


,ADD2 


04030SUB 


TFM 


EVRET 


• SU82 


C4050MUL 


TFM 


EVRET 


,MUL2 


04C9C 


TFM 


EVRET, 


EXP2 


C4110DI V 


TFM 


EVRET 


,OtV2 
10, EVRET 


C4190 


TF 


PUSH9- 


C4350 


TF 


EVRET, 


PUSH9-10 



045CCEXP2 CM INTRET.C10 

04C90 



TFM EVRET, EXP2 



046C0EXP3 SM INTRET,1,10 , », DECR I MENT BY ONE 



C4520 
0469C 



BNL EXP3-24 
B7 EXP3 



04970EXTR A TR 81.RMARK-1 



12040F 



»•» UNREFERENCED 



TF W0RK2£9,W0RK189,, FILLER STRIG 



U94CBRTAB DSA F , B, F, K, F I NI SH.R 
1194CBRTAB DSA F,B«F,K, FINISH, R 

1215C BZ F , , , CHECK FOR EMPTY FILLER 



05360FAILE0BNF • G24 , PERM I S- 1 



C473C BV FAILED 

C5290 BNE FAILED 

C531C 87 FAILED 

C9C5CREADC BLC FAILED 



,,, BRANCH IF DIVISION BY ZERO 



08480F» 



BNF GGTC2,SLC 



C84C0 



BE FF 



l i 4 



112T0FILLEMAM 



PLACE, 2, 1C 

1065C 



04740FINAR CF 



,, .FINISH ARITHEMETIC OPERATION 



0441C 
04430 
C449C 
C4570 
04620 



B7 
B7 
B7 
B7 
BL 



FINAR 
FINAR 
FINAR 
FINAR 
FINAR 



07970FINCQNBNR «62C, -PLACE 

C792C 



B7 FINCON 



13570FIND DS 



1354C 
1355C 
13590 
136C0 
13630K83 



TFM 

AM 

AM 

BNR 
C 



FIND, INPUT 
FIND, 2, 10 
FIND, 4,10 
•£20,-FIN0 
•-»,-FIND 



09660FINORM8NR »-12»»-* 



09630 TF F I NDRME1 1 , WATY— 1 

09650 AM FINDRMtll ,2,10 

09720 C WATY-1,FIN0RM611 

C9730 BL F I NDRMC12 



12740FINISHSM 1,42,10 



1 194GBRTAB DSA F»B,F,K»FINISH»R 



1I670FINK TFM HORK 1 £ 1 5 , 20 , 10, , .EXTRA FINAL EXTRY 



10590 
1067C 
10690 



B7 FINK 
BE FINK 
BE FINK 



06GCDFINLICPrF LSTR.PAST 



013C0 



87 FINLKP 



115 



0666C B7 FINLKP 

C685C TFM COLCT-1 ,F I NLKP 



ll570FIXEDtAM PLACE, 2.10 ...FIXED LENGTH STRING 
11450 BE FIXEOt 



04810FtAG 6F 



0474CFINAR CF 
04770 BNF 
C4810FLAG SF 
04930JION8 BNF 
05060 CF 
05160 BNF 
053C0 BNF 
05320 SF 
0535CTBK81 BNF 



FLAG 

FLAGE12.10 
FLAG 

•£36, FLAG 
FLAG 

•£24, FLAG 
•£20. FLAG 
FLAG 

BK81.FLAG 



,, .FINISH ARITHEMETIC OPERATION 
, , .THAT IS MF FLAGt 10 



0755GF8RG6TTF 



FORGT2£U,LSTR 
07490 



BE FORGET 



07750FORGr2TFH LSTR,»-« 



,,, RESTORE LOOK UP PARAMETERS FOR OELET 

07550FORGETTF F0RGT2E.il .LSTR 
07560 TF FORGT2E23.C0LDIF 

076CO BE FORGT2 



06250FQUND BO NCFIND.2218 £5,,.DONT ACCEPT A PUSHED STRING 



G61C0 
07830 



BE FOUND 
B7 F0UND£24 



,,, BRANCH IF LABEL FOUND 



13850FCUNO8AM K8386.5.10 

1364C 



BE FOUND 8 



08460FS 



BNF GCTC2-12.SUC 

08380 



FS 



09450GET GET 



CCA 



,,,READ INPUT CARDS ROUTINE 
C0820READ BTM GET. 42. 10 



1 1 6 



C9C6C 



BTM GET. 42.10 



0948OGET2 BNR 



»-12,«-« 



C946C 
09470 
09490 
09510 
C9520 
09530 
0954C 
09550 



TFM 

AM 

CM 

TDM 

SM 

TDM 

SM 

B7 



GET2C11 * I NPUT-2 

GET2£11,2,10 

GET2E11.RMARK 

-GET2-11.2 ,. 

GET2£U,1,10 

-GET2-11.2 

GET2£11.I.10 

GET2-12 



(CHANGE REC. MARK TO 22 CODING 



03O2OGCTO TF PL 8, PLACE 



C827C B7 GOTO 

08590 BTM LOOKUP. GOTO- 12 



08510GCT82 AM PLACE, 2, 10 



08420 BE G0T02E12 

C8460FS BNF 60T02-12 . SUC 

08470 B7 GOT02 

08480FF BNF GOT02.SUC 



02WOGt6« SM PAST. 10.10 

C27C0 B7 G089 



013 ! 10HP28 BD CHECK, DEFINE 

»«• UNREFERENCED •«« 



0605OHt32 C COLCIF.-LSTR ,, .CHECK FOR SAME LENGTH 

06120BNRTSTBNR HP32,»-».7 ...TEST FOR END OF TABLE 



112201 



OS 



10570 
1085C 

I121CJIONF 
11230 
11690 
11720 

1174CWL00P 
11770 



TFM 

CM 

TR 

AM 

TR 

TFM 

TR 

TR 



I.ERPS21 

I.»-» 

—I jHORKl 

1,21,10 

-IiWORKl 

I.6RP 

WORK2.-I 

-I.W0RK2 



...MOVE IN ERP ENTRY 



,,,SET UP W VALUES 



117 



1178C 


AM 


11620 


TR 


1183C 


TFM 


11840RULE2 


TR 


1185C 


AM 


11860 


TR 


12020 


TR 


12060 


TR 


12260MATCHSTR 


12490 


SM 


125C0OEC 


SM 


1251C 


TR 


1256CMATCHFSM 


12590 


SM 


12600 


TR 


12650A2 


AM 


12660 


TR 


126eC 


TR 


127C082 


AM 


1271C 


TR 


1 274 CFI N I SHSM 


12750 


TR 


12760 


AM 


128C0 


TR 


1281C 


TFM 


12830KNLOOPTR 


12640 


AM 


1285C 


TR 



1,21,10 

— ! » W0RK2 

I.ERP&21 

W0RK1,-I 

1,21,10 

WORK2.-I 

-I , W0RK2 

-I , W0RK2 

-I.W0RK2 

1,21,10 

1,21,10 

WORKl.-I 

1,21,10 

1,21,10 

WORKl.-I 

1,21,10 

W0RK1 ,-I 

-I .WORK! 

1,21,10 

W0RK2,-I 

1,42,10 

W0RK2,-I 

1,21,10 

-1.W0RK1 

I .ERPS21 

W0RK1 ,-I 

! ,21,10 

W0RK2.-I 



,,,SET UP I 



,,,SIZE FAILURE 



,,, REMATCH BALANCED STRING 
,,,EXTENO LAST STRING IF ARBITRARY 
,, .CONSTRUCT FILLED STRINGS 



10S60II 



1082C 

10830LPPP 

1088C 

1097C 

UC4C 



TFM 

AM 

TR 

TF 

TR 



II ,ERP 
1 1 ,21,10 
W0RK2.-II 
W0RKU4.II 
-I I ,W0RK2 



,,,BACK REFERENCE FOUND 



065C0IBCIR5AM 



PLACE, 2, 1C 

0589C 



00650INPUT DAC 5C, 



00770 TFM PL8, INPUT68 ,, , DEFINE FOR ERROR 10 ON END CARD 

0083C SF INPUT-1 , , , MAKE SURE FLAG IS STILL THERE 

C086C TFM SEARCH&6, INPUTC72»2 

C0920 CM SEARCH&6, INPUT,, .TEST FOR BLANK CARD 

0094C CM INPUT, 20, 10 , , , CHECK FOR CONTRL CARD 

0O98C BTM MATY, INPUT 

0099C CM INPUT, 14, 10 ,,,CHECK FOR COMMENT CARD 

CIC1G TFM CHECK&ll , INPUT 

01C3C CM INPUT, <kO, 10 , , , MAKE SURE FIRST IS LETTER OR DIGIT 

C113C CM PLACE, INPUT66 

01150 C INPUT£4,END-2 ,,, MAYBE END CARD WITH NO LABEL 

C133CNOTME CM INPUT, 0,10 

1 ] 5 



C135C 


CM 


01370 


TFM 


01430 


BTM 


C148COK 


TR 


C149C 


SM 


C241C 


CM 


02430 


C 


C2560 


TFM 


02970 


BNR 


0881CPUNCH2TFM 


0884C 


CM 


08860 


CF 


08870 


TFM 


C8960 


CM 


08S9C 


CF 


C9C9C 


TFM 


C91C0 


TFM 


09460 


TFM 


13520CONTRLBNR 


1354C 


TFM 


1367CTYPEC 


BTM 



INPUT, 03, 10 ,, .CHECK FOR CONTINUATUON 
INPUT,0,10 ,, .BLANK OUT PERIOD 
WATY, INPUT 

LAST-1, INPUT-1, 2, STACK CARD IN MEMORY 

SEARCHE6 , I NPUT-4 

SEARCH£6,INPUT£6 

INPUT66.END 

PLACE, INPUT68 

•£32,INPUTE6 

•618,INPUT6158 

•-18, INPUT 

INPUT-3 ,,, PUNCHED OUTPUT 

KKRET, INPUT— 1 

KKRET, INPUT ,,, CHECK FOR NULL OUTPUT 

INPUT-1 

LKRET. INPUT— 1 

LSTR3.INPUTE159 
GET2S11. INPUT-2 

• E20.INPUTE2 , , .CONTROL CARD DECODER 
FIND, INPUT 
WATY, INPUT 



05C40IWT TFM CNNST-1C.C 



C4150 BTM INT,*ei2 

04290 BTM INT,*£12 

0518C B7 INT-1,,6 

1159C BTM INT,«£12 



14C50INTRET0C 1C.C 



C422C 

C44CCADD2 

C4420SUB2 

0444CMUL2 

045CCEXP2 

046C0EXP3 

C51C0 

05120 

0514C 

05170 

116GC 

11620 

1163C 



TF 
A 
S 
M 

CM 
SM 
TF 
A 

C 

SF 
8NF 
SF 
TF 



PUSH9, INTRET 
10,1 NTRET 
10, INTRET 
10, INTRET 
INTRET, 0,10 
INTRET, 1,10 
INTRET, ZERO 
INTRET ,-P I NT 
-PINT, INTRET 
INTRET 
•C20, INTRET 
INTRET— 3 
WORK IS 13 , I NTRET 



..DECRIMENT BY ONE 



,,, CHECK FOR EXCEEDING 10 DIGITS 



112I0JICNF TR -I.fcORKl ,,,MOVE IN ERP ENTRY 

1107C B7 JIONF 



1 IC50 JICNF2AM PLACE, 2, 10 

11470 



BE JI0NF2 



l i b 



03840JICN7 SM CURRT2.2.10 

UNREFERENCED ••• 



049 20J10N8 BNF •£36,FLAG 

UNREFERENCED 



11950K TF NCRK2£9,M0RKl&9t » CONSTANT STRING 

I 194CBRTAB DSA F ,B ,F ,K.F I Nl SH ,R 



1CCCOKALFC AM KALSB£6,5,1C ,,»MOVE TO RECOVER ADDRESS 
09960 BE KALFD 



09950KALSB C •-•.2218E11 



C994C TFM KALSBC6, SUBLST 

C997C AM KALSBC6, 18.10 , < « SEARCH FOR ENTRY ADDRESS 

0998C BNR KALSB .-KALSB-6 

C998C BNR KALSB. -KALSB-6 

1CCC0KALFD AM KALSBt6,5,l0 ...MOVE TO RECOVER ADDRESS 

10020 TF SUBPSH-10t-KALSB-6 



099 10KHIIUBSF 



C988C TF KALSUB66, PLACE 

0989C S KALSUBC6.CCLDIF, t RECOVER SUBROUTINE NAME 

099GC SM KALSUBE6.2.10 

09930 CF KALSUBC6..6 



1058OKINDF BNR «E2C»-PLACE ,,, CHECK FOR RECORD MARK 



11190 BZ KINDF ...SKIP IF NULL CONSTANT STRING 

1125C B7 KINDF 



08890KKRET OS 



C887C TFM KKRETt INPUT- 1 

089CC AM KKRETt 1.10 

C891C BNR ARN65t-KKRET 

08960 CM KKRETt INPUT ,,, CHECK FOR NULL OUTPUT 

C9C1CARN66 TO -KKRET.-LKRET 

1 2 



09020 



KKRETtltlO 



10060KHMR CF 



SUBPSH-9,PEKMT,7 
065AC 



KMKMC1L. PUSH4 



12830KNLQQPTR WCRK1.-I 



1289CBRTAB4DSA 
1289CBRTA84DSA 
13050 BE 
1338C B7 



KONST.KONST, KONST .KNLOOP .CONST8* KNLOOP 
KONST .KONST, KONST . KNLOOP , CONST8 » KNLOOP 
KNLOOP ...CHECK FOR EMPTY FILLER 

KNLOOP 



!29C0KiNST TF PLACE, WCRK1G4 



12890BRTAB4DSA 
12890BRTAB4DSA 
1289CBRTAB4DSA 




04310KJP DC 



06630 
C664C 
06810 
06890 
07370 
0738C 
C74CC 
07430 
13140 
1315C 
13170 
13200 



TF 
AM 
TF 
S 

SM 
SF 
S 

CF 
SM 
SF 
S 

CF 



KSP.LKRET 
KSP, i. 10 
KSP, PLACE 
99, KSP 
KSP.1,10 
-KSP 

CURRT2tKSP 
—KSP 
KSP.1,10 
—KSP 

CURRNT.KSP 
-KSP 



,,LETS NOT LEAVE ANY STRAY FLAGS 



05330KSTR4 OS 



UNREFERENCED •«« 



07280KISTRS DS 



,*-5 



0723QTRLOOPTF KSTR5.LSTR 
C727C TF -KSTR5. 2218629 

07290 C KSTR5.PAST .CHECK FOR END OF SYMBOL TABLE 



13630K83 C 



•-•♦.-FIND 



13850FOUND8AM K8366,5,10 
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13860 SF K83G6 ,,, CONTROL FUNCTION FOUND - BRANCH TO IT 

1387C B7 K83£6,,6 



14370LAST OAC It t 



C081C 

C148C0K 

C298C 



TFM CURRNT»LAST— 1 

TR LAST-1,INPUT-1,2,STACK CARD IN MEMORY 

TFM PLACE t LAST- 2 ,,,NO - START WITH FIRST STATEMENT 



0O1COLCNGTHDC 4, 240 



, , « LENGTH OF 1443 PRINTER LINE 
C971C A WATY-l .LENGTH 



13880LIST TOM LIST2.-1 



OSA LIST 



04340LI5TS DC 



5,0, 



02520 
C6C2C 



TF 
TF 



LISTS, PAST 
LSTR, LISTS 



CCC70L I ST2 DSC l.C 



C097C BNF »£24,LIST2 

C1420ERR1 BD •S24.LIST2 

neacLiST tdm list2,-i 

1395CUNLI STTDM LIST2.0 



06670LKEVAL8TM EVAL,»£12 



03740LKRET DC 



C585C 


BE 


LKEVAL 


C319C 


TF 


THERE, LK RET 


C371C 


S 


CURRT2, LKRET 


C3730 


SF 


-LKRET 


C375C 


C 


LKRET, LSTR3 
-LKRET 


038CC 


CF 


C5070 


AM 


LKRET, 1,10 


05C80BK82 


C 


LKRET, LSTR3 


C51SCON28 


C 


C70, -LKRET 


0521C 


TD 


-PINT, -LKRET 


C5230BK81 


AM 


LKRET, 2, 10 


052600N83 


C 


CIO, -LKRET 


C52eC 


C 


C20, -LKRET 



CHECK FOR END OF STRING 
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C56CCPEKMT TF 



C578C 
0632C 
C6330 
C6410 
06420 
0659C 
C6630 
C6650 
C669C 



TFM 

TF 

AM 

TF 

AM 

S 

TF 
TFM 
TF 



C875CPR I NT2AM 
C8760 BT 
C888CLP65 TD 
C894CARN65 AM 
C895C BNR 
09C1CARN66 TD 
C903C AM 
09C9C TFM 
1115C S 



PLACE2, LKRET 
LKRET, RMARK-1 
LKRET, LSTR2 
LKRET,3,10 
LKRET, PLACE 
LKRET, 1,10 
LSTR3, LKRET 
KSP, LKRET 
LKRET, RMARK-1 
LKRET, CLAST 
LKRET, 1,10 
WAT Y , LKRET 
»-»,— LKRET 
LKRET, 1,10 
ARN66,— LKRET 
-KKRET, -LKRET 
LKRET, 1,10 
LKRET, INPUT-1 
99, LKRET 



03660Li:UP 


8TM 


LCCK2,»S12 

*** UNREFERENCED »»« 




06390LCIT 


TDM 


DEFINE, 0, 10 

C587C BE LLIT 





055t0LC0KUPTFM PERM I S» 11,1011 



C3CCC 
05630 
0565G 
C8590 



BTM LOOK UP,»£12 

B7 -L00KUP£1 

BNR — L00KUP61 ,LSTR 

BTM LOOKUP, GCTC-12 



05710LCCK2 TR PUSF4- 99,PUSH4-89 



03160 


BTM 


L00.K2, 


»ei2 


C368CLKUP 


BTM 


L00K2, 


•£12 


C42e0 


BTM 


L00K2, 


»ei2 


C559C 


BTM 


L00K2, 


• £12 


05790 


TF 


PUSH4, 


L00K2-1 


0636C 


TF 


L00K2- 


1 , PUSH4- 


0638C 


B7 


-L00K2G1 


06520 


BTM 


L00K2, 


• £12 


08040 


BTM 


L00K2, 


•£12 


C871C 


BTM 


L00K2, 


• £12 


10730 


BTM 


L00K2, 


♦ £12 


11580 


BTM 


L00K2, 


• £12 


12920 


BTM 


L00K2, 


•£12 


131CC 


BTM 


L00K2 


,•£12 


14230 


BTM 


L00K2 


,•£12 


14290 


BTM 


L00K2 


,•£12 



,,,CONSTRUCT FILLED VARIABLE 
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10830LfPP AM 



II.21.1C 



1091C 
1094C 
10960 



BH LPPP 
BNE LPPP 
BNE LPPP 



088«0Lf65 



TO •-•»— LKRET 

C9C4C 



B7 



06120LSTR OS 



05650 BNR 
C58C0 TO 
C6C00FINLKPTF 



06020 
06050HP32 
06070 
0611C 
0627C 
0628C 
06720 
07150 
C7220 
C7230TRLOOPTF 
C724C SM 
07250 TF 
0755CFORGETTF 
C7750FORGT2TFM 
C78C0 AM 
0781C TF 



TF 

TF 

AM 

SM 

TF 

TO 

BNR 

AM 



-LOOKUP61.LSTR 
LSTR.RMARK 
LSTR.PAST 
LSTR, LISTS 
COLOIF.-LSTR 
221869,-LSTR 
LSTR, 10. 10 
LSTR, 10, 10 
2218619. -LSTR 
LSTR.RMARK 
•£24, LSTR 
LSTR, 10, 10 
KSTR5.LSTR 
LSTR, 10, 10 
2218629.-LSTR 
F0RGT2611.LSTR 
LSTR,»-» 
LSTR, 10, 10 
221869,-LSTR 



, , .CHECK FOR SAME LENGTH 
...MOVE SYMBOL TABLE ENTRY 
,,,MOVE TO NEXT ENTRY 



,,,N0 DELETING SYSPIT 



,,,UPOATE SYMBOL TABLE 



... RESTORE LOOK UP PARAMETERS FOR DELET 



06240LSTR2 OS ,221864 



C6320 
07170 
C7180 
07190 
130C0 



TF 

S 

TR 

S 
S 



LKRET, LSTR2 
LSTR2,C0LDIF 
— LSTR2 ,— LSTR3 
LSTR3.LSTR2 

SHIFT, LSTR2 



rt.PULL DOWN STRINGS 

,,, CALCULATE AMOUNT OF SHIFT 



O6310LSTR3 OS ,2218614 



C317COHMY 

0370C 

C3720 

C375C 

0377C 

0508CBK82 



TF 
SM 
A 

C 

TF 

C 



06150NOFINDTFM 
0646C TF 



M.LSTR3 
LSTR3.1.10 
CURRT2.LSTR3 
LKRET, LSTR3 
— CURRT2,— LSTR3 
LKRET, LSTR3 
LSTR3,RMARK— 1 
LSTR3, PLACE 



,, .CHECK FOR ENO OF STRING 



124 



C647C SM LSTR3,1,10 

0657C SM LSTR3.1.10 

0658C TF C0LRET,LSTR3 

C659C S LSTR3, LKRET 

C661C SF LSTR3-2 

0662C TF C0LDIF,LSTR3 

067CC TF LSTR3 .CURRT2 

C7180 TR -LSTR2 ,-LSTR3 

0719C S LSTR3.LSTR2 

07200 S CURRNT.LSTR3 

07260 S 2218624, LSTR3 

C7860 S CURRT »LSTR3 ,.i 

C91C0 TFM LSTR3.INPUT6159 

10750 C CURRT2,LSTR3 

10770 TF CURRT2.LSTR3 

11120 TF W0RK164.LSTR3 ,,, STRING IS NOT BACK REFERNCE 

1298C C LSTR3.SV100 

13020 A SHIFT.LSTR3 

143CG TF CURRT2 .LSTR3 



...PULL DOWN STRINGS 

,, .CALCULATE AMOUNT OF SHIFT 

♦...UPDATE NEXT AVAL. CORE 



096 20LSCKY DS 


,•61 


09570WATY 


BO 


LUCKY, PRINTR 


,,,FOR THOSE PEOPLE WITH A PRINTER 


09780L*CKY234 


0,971 


G9760EJECT 


BO 


LUCKY2.PRINTR 


,, .EJECTION SUBROUTINE 



12240M 



DC 



5,0,» 



0317COHMY 

03180 

C320C 

07590 

07610 

07660 

C77C0 

1189C 

1218G 

12370 

12790 



TF 

SM 

TF 

C 

S 

A 

TF 

C 
C 

c 

TF 



M.LSTR3 
M,1,10 
H0RK1£9,M 
M.W0RK169 
M, SHIFT 
CURR T,M 
-CURR T,-M 
SV100.M 
W0RK269.M 
W0RK269.W 
WORK 1 69, M 



140C0MASK 



OSAC ll.COOCCOCCCCC, 
04820 



TF 80,MASK 



12580MMCMFSM 1,21,10 



1201C 
12250 
12310 



BNE MATCHF 
BNE MATCHF 
BE MATCHF 
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1238C BH MATCHF 

12550BRTAB2DSA A. MATCHFC12 . DEC , DEC t BR ACHF , DEC 

12570 B7 MATCHFE12 

1264CBRTAB3DSA A2 . B2 f MATCHFG12 t M ATCHFU2 , A2, MATCHF6 12 

12640 BR TAB 3D SA A2 , B2 t MATCHF £ 12 t M ATCHF612, A2 , MATCHFS12 

1264CBRTAB3DSA A2 , B2 , MATCHF £ 12 , MATCHFt 12 , A2 , MATCHFC12 



12260MATCHSTR -I.V.ORK2 



1233C 
1246 C 



BNE MATCHS 
BZ MATCHS 



04C50MBIL TFM EVRET ,MUL2 

0397C 



04440MM.2 M 1C.INTRET 



C4C50MUL TFM EVRET ,MUL2 



01650MYPARN8D OK 2 6 12 , 0K26 1 1 ...SKIP PAREN CHECK IF IN LITERAL 

01620 BNE MYPARN ...NO - BRANCH TO PAREN CHECK 



042 10NEXT DC 5,0,» 



•*• UNREFERENCED •*• 



06150 NCFINDTFM LSTR 3 , RM ARK- 1 



C625CFOUND BD N0FIND.2218 &5...D0NT ACCEPT A PUSHED STRING 
C6260 BD N0FIND.2218C6 



01230NCTHE CM INPUT, 0,10 

C1C6C 



BL NOT ME 



142 100HCE ARDAC 3,- a, 



142200HNI TFM PLACE, OH DEAR ,,,0F ALL THE RIDICULOUS THINGS 
1427C TR — CURRNT » OH DEAR-1 



031700HMY TF M.LSTR3 



1435C 



B7 OH MY 



12b 



14220OI«NI TFM 



PLACE, OH DEAR , , , OF ALL THE RIDICULOUS THINGS 
C315C BE 0HN1 



01460OK 



LAST-1, INPUT-1.2.STACK CARD IN MEMORY 



C15CC A 
02420 BNH 
C244C BNE 
0334CCURRNTDS 



0K&6 . SEARCHG6 

OK 

OK 

,0K66 



,, .CHECK FOR END CARD 



02340GK2 TDM SPDG.O 



01470 


TFM 


0163C 


TD 


C164C 


TD 


01650MYPARNBD 


01650MYP ARNBD 


C169C 


AM 


C174C 


BH 


01870 


BE 


0189C 


BE 


0191C 


BE 


0193C 


BE 


02060 


B7 


C2C90 


SM 


C21CC 


BNN 


C211C 


TFM 


02120 


B7 


02130CK4 


BD 


C22C0 


B7 


02220 


BNE 


02250 


B7 


02260 


BD 


02260 


BO 


02330 


B7 


02380 


BD 


C24CG 


BD 



0K2611.0 

»£23,0K2£11 

OK2C11.2310 

0K2tl2,0K2Cll 

OK2&12.0K2C11 

0K268,1,10 

0K2612 

0K2612 

0K2C12 

0K2E12 

0K2612 

OK2612 

0K2E8.1, 10 

0K2E12 

0K2C8.-45.10 

0K2612 

0K2.SPDG 

0K2624 

0K2C12 

0K2£24 

0K2S24.0K2S8 
0K2£24,0K2£8 
0K2624 
ERR1.0K2C11 
ERR1.0K2E8 . , 



...SKIP PAREN CHECK IF 
...SKIP PAREN CHECK IF 



f N0 BRANCH OUT 



IN LITERAL 
IN LITERAL 



. . .BRANCH IF PAREN. COUNT NOT ZERO 
,,, BRANCH IF PAREN. COUNT NOT ZERO 

, , . ERORR IF a NO BALANCED 
.BRANCH IF PARENTHESIS UNBALANCED 



02130OK4 BD 0K2.SPDG 



0158C BE 



140700NE DC 1C.1 



C459C TF 10, ONE 



03*52001110 C CIO, -PLACE ...CHECK FOR 6 
0389C BNE 0N10 



127 







net 1 ICR FT 










05Q9C 


BNH 


ON28 






r 4(1 pi fir f 










C684C 


BNR 


0N62t-PLACE 


08280QN63 


C 


C61.-PLACE 


FIND DIVIDING SLASH 






08 1 8 C 


B7 


0N63&36 


083 300N6S8 


AH 


PLACE, 2, 1C 










0829C 
C844C 
C857C 


BE 
BE 
BTM 


0N638 
0N638 

ADVANC0N638612 


(15 7 Annua* 




rip i |/ d p t 










C52GC 


BH 


0N83 


022 1001187 




CCC2 1 »— PLACE 


CHANGE 


GOTO / CODDING TO 61 






0208C 


BNE 


0N87 


02070QN68 


c *" 


CC4 ,— PLACE 










C1680 


BNE 


0N88 


036200119 


c 


CC4t-PLACE 


CHECK FOR n 






036CO 
C4CCC 


BNE 
B7 


0N9 
0N9 


01530OVLAP 


BTM 


KATY,0VLP 










C5730 


BNL 


OVLAP 


0VS50OM.P 


OMES 


♦A, CORE OVERLAPSEn 

C153COVLAP BTM 


MATY.OVLP j 2> ^ 



U110PARCNTDC 



2,0,»-2 



1024CADVANCTFM 
1033C AM 
10360 SM 
12350 TFM 
1241C AM 
1245C SM 



PARCNT, 0,10 
PARCNT »1 , 10 
PARCNT,1,10 
PARCNT 1 1 1 10 
PARCNT, 1,10 
PARCNT, 1,10 



,,, SUBPROGRAM TO ADVANCE TO MATCH PAENTHESIS 



012€0P»ST DS ♦«-: 



0079C 


TF 


C08G0 


TD 


01260 


SM 


01270 


TF 


01510 


C 


C25C0 


SM 


0251C 


TF 


02520 


TF 


0254C 


SM 


02550 


TD 


02880GO89 


SM 


0291C 


TF 


02920 


SM 


02960 


TF 


05720 


C 


060C0F I NLKPTF 


07130 


TF 


07210 


AM 


07290 


C 


0794C 


SM 


07960 


TF 


093CC 


AM 


C9310 


BNR 


09330 


TF 


13350 


SM 


13370 


TF 


14330 


SM 


14340 


TF 



PAST ,CORE 
PAST ,RMARK,6 
PAST, 10, 10 
-PAST.2218C9 
CURRNT.PAST 
PAST, 10, 10 
—PAST.CURENT 
LISTS. PAST 
PAST, 10, 10 
-PAST.RMARK 
PAST, 10, 10 
-PAST.QUENT 
PAST, 10, 10 
-PAST.CURENT 
CURRT2.PAST 
LSTR.PAST 
-PAST, 2218629 
PAST, 10, 10 
KSTR5.PAST 
PAST, 10,10 
—PAST.CURENT 
PAST, 10, 10 
•£24, -PAST 
2218C9.-PAST 
PAST, 10,10 
-PAST.CURENT 
PAST.10,10 
-PAST.CURENT 



,,, PLACE IN TRAILER ENTRY 



... CHECK FOR OVERLAP 



,,,SET TRAILER ENTRY FOR STRING SYMBOL TABLE 



,, .CHECK FOR CORE OVERLAP 



,,, CHECK FOR END OF SYMBOL TABLE 
,,,PUT IN NEW SYMBOL TABLE HEADER 



13980PCC TDM PCC2.-1 



13720 DSA PCC 



00080PCC2 DSC 1,C 



13890DTYPE BNF READ.PCC2 
1398CPCC TOM PCC2.-1 



056€0PfK«I TF PLACE2.LKRET 

10C60KMKM CF SUBPSH— 9.PEKMT.7J 2 y 



0557OPIRHISDC 3,0,»-2 



01180CHLB0TTFM 
0536CFAILEDBNF 
C556CL00KUPTFM 



0561C 
C6C1C 
C616C 
0617C 
C651C 
C6560 
C656C 
C6930 



TFM 

BNF 

BNF 

BNF 

TDM 

TO 

TD 

BD 



PERMIS.00,9 
•C2A,PERMIS-1 
PERMIS, 11,1011 
PERMIS, 0,9 

•62A, PERMIS 
RETLK, PERMIS 
RETLK t PERM I S-l 
PERMIS, 
PERMIS. PERMIS-1 
PERMI S.PERMlS-l 
-C0LCT61, PERMIS 



i SET UP LINKAGE TO TABLE LOOKUP ROUTINE 



05130PINT OS 



0505C 
C511C 
C512C 
05140 
0521C 
C522C 
C524C 



TFM 

SM 

A 

C 

TD 
AM 
BNR 



PlNT.CNNST-10 
PINT, 1,10 
I NTRET »— PI NT 
-PI NT, INTRET 
— PI NT .—LKRET 
PINT, 1 ,10 
BK82 ,-PINT 



,, .CHECK FOR EXCEEDING 10 DIGITS 



006AOPIT DAC 7.SYSPIT 



PI T610, -COLRET 



01670PtACE DS .CHECK611 



01C8CCHLB 

C11CC 

01120 

CU3C 

C12CC 

C166C 

C17C0 

C1830 

0207C0N88 

0221CON87 

C223C 

C224C 

02270 

C228C 

C229C 

C256C 

0298C 

C3C1C 

03C2CGOTO 

0304C 

C3120 

0314C 



C 

AM 

BNR 
CM 
TF 
C 

TF 
A 

C 
C 

AM 

BO 

SM 

TDM 

AM 

TFM 

TFM 

TF 

TF 

TF 

C 

C 



...FIND END OF LABEL 



i .CHECK FOR OPEN PAREN 



COO, -PLACE 
PLACE, 2,10 
CHLB, -PLACE 
PLACE, INPUT66 
COLRET, PLACE 
C2A, -PLACE 
SU8CHK, PLACE 
2218tl3, -PLACE,, RECOVER NAME OF SUBROUTINE 
COA, -PLACE 

C0021, -PLACE ,, .CHANGE GOTO / CODDING TO 61 
PLACE, 2, 10 
•£20, -PLACE 
PLACE, 3. 10 
-PLACE, 6 
PLACE, 3, 10 
PLACE, INPUT68 

PLACE, LAST-2 
PLACE, PLACE2 
PL8, PLACE 

WT Y6 1 1 , PL ACE 
C61, -PLACE 
C2A, -PLACE 



,,,N0 - START WITH FIRST STATEMENT 



,,,CHECK FOR A CONTRUCTED REFERENCE STRING 



1 3 (J 



C323C 


BNR 


C3250 


C 


C327C 


AM 


C329C 


C 


C331C 


C 


03A8C 


AM 


03A9C 


BNR 


C35900BL 


C 


0361C 


AM 


C36200N9 


C 


0364C 


C 


C366C 


C 


C3860 


BNR 


0388CQBL2 


C 


C39CC 


AM 


C39200N1C 


C 


03940 


C 


03960 


C 


C398C 


c 


CAC6C 


AM 


CAC70 


c 


CA120EV 


AM 


CA160 


BNR 


CA2AC 


C 


CA26C 


AM 


0538C 


TF 


0582C 


BNR 


058 AC 


C 


05860 


C 


0588C 


C 


059CC 


c 


05930 


c 


05950 


c 


0598C 


c 


C6A1C 


TF 


C6A30 


AM 


06AA0 


C 


06A60 


TF 


C6A8C 


AM 


C65C0 IND IR5AM 


067A0 


C 


0677C 


AM 


0681C 


TF 


C682C 


AM 


C68A0 


BNR 


0686CRETCOLTF 


C1688C 


TF 


0701CON62 


C 


07030 


C 


07050 


C 


C797CFINC0NBNR 


C799C 


C 


08020CONST2TF 


08C30 


TF 


C8C5CTFMZ 


TFM 


C8190YEAH3 


AM 


08210 


C 


0B23C 


AM 


C82AC 


CM 


062800N63 


C 


083C0 


AM 



•620, -PLACE 
COO, -PLACE 
PLACE, 2, 10 
C33 , -PLACE 

C61 , -PLACE 
PLACE, 2, 10 

QBL .-PLACE 
COO, -PLACE 
PLACE, 2, 10 
COA, -PLACE 

C61 , -PLACE 
C23, -PLACE 
•620 , -PLACE 
COO, -PLACE 
PLACE, 2, 10 
CIO, -PLACE 
C20, -PLACE 
CIA, -PLACE 
C21, -PLACE 
PLACE, 2. 10 
CIA, -PLACE 
PLACE, 2, 10 
• 620, -PLACE 
COO. -PLACE 
PLACE, 2, 10 
PLACE, PL8 

•62A, -PLACE 
C2A, -PLACE 
C3A, -PLACE 
C13, -PLACE 

C22, -PLACE 

C03.-PLACE 

CAO, -PLACE 
C2A.-PLACE 
LKRET, PLACE 
PLACE, 2. 10 
C3A, -PLACE 
LSTR3, PLACE 
PLACE, 2, 10 
PLACE, 2, 10 
COA, -PLACE 
PLACE, 2,10 
KSP, PLACE 
PLACE, 2, 10 
0N62 , -PL ACE 
COLRET, PLACE 
99, PLACE 
CAO, -PLACE 
C03, -PLACE 
C22, -PLACE 
•620,-PLACE 

C61, -PLACE 
TFMZ611, PLACE 
PLACE, PL8 
PLACE, •-• 
PLACE .2 » 10 
COO.-PLACE 
PLACE, 2, 10 
PLACE,*-* 

C61 ,— PLACE 
PLACE, 2, 10 



,,, CHECK FOR A BLANK 



,,,CHECK FOR BLANK 
,, .CHECK FOR n 



...SKIP BLANKS 

,,, CHECK FOR 6 

,,, CHECK FOR - 

,,,CHECK FOR • 

,,,CHECK FOR / 

, .CHECK FOR •• 



... CHECK FOR A RECORD MARK 

...MOVE PAST LABLE 
...FIND DIVIDING SLASH 
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0831C 



BNR 



C833GON638 AM 



08350 
08370 
08390 
08410 
08430 



BNR 
C 
C 
C 
C 



0851C6OT02 AM 



08520 
08540 
08580 
086<JC 
C87CCTFM 



BNR 
C 

AM 
TF 
TFM 



08720TFM8K TFM 



09880 
09920 
10080 
10130 
10250VG 
10260 
10310 
1034C 
1038C 



•-36, -PL ACE 
PLACE. 2. 10 
•E20.-PLACE 
C62, -PLACE 
C56, -PLACE 
C24,— PLACE 
COO, -PLACE 
PLACE. 2.10 

•£20,-PLACE 
C24«— PLACE 
PLACE.2.10 
TFM8K611, PLACE 
PLACE. PPT 
PLACE. »-» 
KALSUBC6.PL ACE 
2218S13, -PLACE 
C04, -PLACE 
C04»— PLACE 
PLACE, 2. 10 
C34, -PLACE 
C24»— PLACE 
C04, -PLACE 
PLACE.2.10 



0580KINDF BNR «E20. -PLACE 



1061C 
10630 
10640 
10660 
10680 



C 
AM 

C 

c 
c 



107CCREGUL TF 



1078C 
1079C 

1095C C 
11050JIONF2AM 
111C0 AM 
11270FILLEMAM 



11280 
11300 
11310PUCK 
11330 
11350 
11370 
1138C 
11420 
1144C 
11460 



C 
TF 
C 

c 
c 

AM 

BNR 
TF 
C 
C 



COO.-PLACE 
PLACE.2.10 
C14»— PLACE 
C61.-PLACE 
C33,— PLACE 
PL2, PLACE 
PLACE. 2,10 
PL6. PLACE 
-PLACE .-WORK2-4 
PLACE, 2, 10 
PLACE, 2, 10 
PLACE.2.10 
C24. -PLACE 
W0RK1C4, PLACE 
C14, -PLACE 



,, .CHECK FOR RECORD MARK 
,, .BLANK 

...ASTERISK 
...SLASH 



,, .CHECK FOR BALNCED STRING 



11490BLNC0 AM 



TF 
TF 



115C0 
11540 
I 157CFI XEDLAM 
11680 TF 
129C0KONST TF 
13060 TF 
13070 C 
134C0CONST8TFM 



C21 .—PLACE. . 
C34»— PLACE 
PLACE, 2, 10 

PUCK, -PLACE 
M0RK1C9. PLACE 
C21 ,— PLACE 
C14.-PLACE 
PLACE, 2, 10 
H0RK1C4, PLACE 
H0RK169, PLACE 



...CHECK FOR A SLASH 



,, .BALNCED STRING 



ROY ED LATER 



1341C 
13430 
13450 
142200HNI 
14250 



BNR 
C 
C 

TFM 
TF 



PLACE.2.10 ,, .FIXED LENGTH STRING 
CONST 86 11 .PLACE, .PLACE MAY BE DESTRO 
PLACE, W0RK1S4 
PLACE, W0RKU4 
C13. -PLACE 
PLACE, »-• 
•620,-PLACE 
C61, -PLACE 

PLACE »0H DEAR ,,,0F ALL THE RIDICULOUS THINGS 
PLACE, PL8 
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03810PKACE2DC 



0301C TF 

0560CPEKMT TF 

05620 BNR 

0564C AM 



PLACE, PLACE2 
PLACE2 .LKRET 
•£20.PLACE2 
PLACE2.1.10 



04650P12 



OS 



107CCREGUL TF 



10720 
10740 
108CC 
10990 



SM 
SF 
S 

CF 



11C8CREGUL2CF 



PL2, PLACE 

PL2.1.10 

-PL2 

PL6.PL2 

-PL2 

-PL2 



,,, CHECK FOR BACK REFERENCE 



110-30Pt6 



10790 


TF 


PL6, PLACE 


108C0 


S 


PL6.PL2 


1081C 


SM 


PL6.1.10 


10920 


A 


W0RK2C4. PL6 


11010 


S 


M0RK2C4.PL6 



093 SOP t* 



00 



00770 


TFM 


PL8. INPUT&8 


03020GOTO 


TF 


PL8, PLACE 
PLACE »PL8 


0538C 


TF 


08030 


TF 


PLACE,PL8 


09210ERROR 


SM 


PL 8 ,1,10 


09220 


BNF 


•-12.-PL8 


09230 


AM 


PL 8 ,1,10 


09260 


BT 


WATY.PL8 


14250 


TF 


PLACE, PL8 



,,, DEFINE FOR ERROR 10 ON END CARD 



,,, ERROR MESSAGE ROUTINE 



0874GPRRET 87 



08640 
08790 



TFM PNRETE6.PRINT2 
TFM PNRET&6.PUNCH2 



00620POT OAC 7,SYSP0T 



06960 C POTtlO.-COLRET 

08630PRINT TFM TFMCll.POT 
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00630P»T CAC 7.SYSPPT , 



0698C C PPT610.-C0LRET 

C87CCTFM TFM PLACE. PPT 
0878CPUNCH TFM TFM£11,PPT 



O8630PRINT TFM TFM811.P0T 



C697C BE PRINT 

Q88CC B7 PRINTE24 



O0C6OPRIBTRDSC 1,0 



C957CWATY BD LUCKY, PRINTR ,,,FOR THOSE PEOPLE WITH A PRINTER 
09760EJECT BD LUCKY2 , PR I NTR ,,,EJECTION SUBROUTINE 
14C20PRNT2 TOM PRINTR, -1 



08750PRINT2AM LKRET,1,1C 

C864C TFM PNRE T£6 , PR INT2 



14C20PRNT2 TDM PRINTR, -1 

138CC DSA PRNT2 



113I0PUCK C C14.-PLACE 

1138C BNR PUCK, -PLACE 



087eOPttNCH TFM TFMtll.PPT 

C699C BE PUNCH 



08810PUNCH2TFM • 1 16 . I NPUTG 1 5 e 



C879C TFM PNRE T £6 » PUNCH2 

C893C B7 PUNCH2 



03390PaSH2 DSAC 50, 



C3420EVAL TR PUSH2 - 99.PUSH2- 89 

03420EVAL TR PUSH2 - 99,PUSH2- 89 

C3430 TF PUSH2 ,EVAL— 1 ,,,PUSH2 TO IS A PUSH DOWN LIST WITH 

C344C CF PUSH2-4 ,,, A GROUP OF RETURN ADDRESSES AND 

03460 TF PUSH2-5,CURRT2,,, POINTERS TO THE OUTPUT AREA 



1 3 '< 



03470 
03520 
0354C 
C355C 
03560 
C357C 
C357C 



CF 
SF 
TF 
SF 
TF 
TF 
TF 



PUSH2-9 
PUSH2-9 

CLAST ,PUSH2-5 

PUSH2-4 

•E30.PUSH2 

PUSH2,PUSH2-10 

PUSH2.PUSH2-10 



...PULL UP PUSH DOWN LIST 



05680P8I5H4 DSAC 5C, 



14120PHSH9 DSAC 5C, 



C129C TFM PUSH4,»£20,0 

C571CL00K2 TR PUSH4- 99,PUSH4-89 

C571CLOOK2 TR PUSH4- 99.PUSH4-89 

0574C TOM PUSH4-9,0 

C579C TF PUSH4.L00K2-1 

0581C CF PUSH4-4 

0635CRE TLK SF PUSH4-4 

06360 TF L00K2-1.PUSH4 

0637C TF PUSH4 .PUSH4— 10 

C637C TF PUSH4.PUSH4— 10 

C654C C KMKMtl 1 , PUSH4 

07820 TFM PUSH4,»E20,0 



0418C TR PUSH9-149.PUSH9-134 

C418C TR PUSH9-149.PUSH9-134 

0419C TF PUSH9-10 » E VRET 

042CC CF PUSH9-14 

C4220 TF PUSH9,INTRET 

C4230 CF PUSH9-9 

043CC SF PUSH9-9 

04320 TF 10.PUSH9 

04330 SF PUSH9-14 

04350 TF EVRET.PUSH9— 10 

0436C TF PUSH9,PUSH9— 15 

04360 TF PUSH9,PUSH9-15 



03590(3§t C COO.-PLACE ,, .CHECK FOR BLANK 

C3490 BNR QBL, -PLACE 



038 ! 80«iL2 C CCC-PLACE ...SKIP BLANKS 

«»» UNREFERENCED « 



02740QSIENT DC ICS 



0289C 
C29C0 
0291C 



TF QUENT-5 ,CURRNT 
AM QUENT-5, 9, 10 
TF -PAST.QUENT 



13 



1*1 JCUUVliI C UAI* 


cs.cuoTE aa. 


, ,, SPECIAL 


STRING WHICH CONTAINS ONLY A QUOTE 




C2930 




TR 


—CURRNTt QUOTE- 1 , , , CREATE STRING CONTAING QUOTE %3>a 


121CGR SF 


SFLAG 


,,.,BACK REFERENCE 




11940BRTAB 


DSA 


F,B,F,K, FINISH, R 


0082OR€AO BTF 


GET, 42, 10 










C093C 




BL 


READ 




C1CCC 




BE 


READ 




0152C 




BL 


READ 




13530 




B7 


REAO 




1368G 




B7 


READ 




1389CDTYPE 


BNF 


READ,PCC2 




FAILED 










06950 




BE 


READC 


iU (bUKtuUL 1 r 


PL2, PLACE 










• •• 


UNREFERENCED •** 


i titsnocr'iJi ore 
l lUCUKtOwLiLP 


-PL2 










1087C 




BNH 


REGUL2 


06860RETCOLTF 


COLRET, PLACE 










C7C7C 




B7 


RETCOL 


UOJ'UKB ILN or 


PUSH4-4 










C616C 




BNF 


RETLK, PERMIS 




C617C 




BNF 


RETLK, PERMIS-1 




C6490 




B7 


RETLK 




0676C 




B7 


RETLK 




C911C 




B7 


RETLK 


08 ltORf TURNBT 


• 68,2 










0865C 




TFM 


RETURN£6,«£20 J 3 y 



0867C 


TFM 


RETURNE.6 , RETURNS 8 


C867C 


TFM 


RE TURN t6 »RETURN£8 


C868C 


BNF 


RETURN, SUC 


08730 


TFM 


RETURN66 » RETURNC8 


C873G 


TFM 


RETURN£6,RETURN£8 


C877C 


B7 


RETURN 


C90CC 


B7 


RETURN 



035C0RIT9 TR — CURRT2»DSC00£2«.» SET TRAILER RECORD MARK 



0363C 
C3650 
C3670 
03870 
05C1C 



BE 
BE 
BE 
B7 
B7 



RET9 
RET9 
RET9 
RET9 
RET9-12 



06210RIG BNE ERIC 



UNREFERENCED ••» 



006<80R1ARK OS 



0O73C TR 
CO8C0 TD 
0087GSEARCHTD 
02550 TD 
04970EXTRA TR 
05780 TFM 
C58CC TO 
0615CNOF INDTFM 
06400 TD 
06650 TFM 
06720 TD 
06730 TD 
0778C CM 
09C7C TD 
0924C TO 
0929C TR 
09490 CM 
13920SPACE BTM 



—CORE, RMARK— 1 
PAST .RMARK.6 

RMARK 
— PAST»RMARK 
8URMARK-1 
LKRET.RMARK-l 
LSTR, RMARK 
LSTR3.RMARK-1 
COLDIF, RMARK 
LKRET.RMARK-l 
LSTR, RMARK 

COLDIF , RMARK ,,, INDICATE NOT TO BE DELETED 
THERE, RMARK-2 

COLDIF, RMARK 
ERROR— 1 , RMARK 
-CURRNT,RMARK-1 
GET2E11, RMARK 

WATY, RMARK ,,, SPACE ONE LINE 



,,,PLACE IN TRAILER ENTRY 
, ,,SET RECORD MARK 



,,, INDICATE VARIABLE NOT TO BE DELETED 



lie«0ROLE2 fR ttGRKl,-! 



12030 


B7 


RULE2 


12070 


87 


RULE2 


12270 


B7 


RULE2 


12690 


B7 


RULE 2 



02C103I CKCLDSAC 7, 



01220 



TF 2218£13,SBCKCL,,,CONTRUCT NEW SYMBOL TABLE ENTRY 
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01820 TF 2218U3,SBCKCL 

07C9CDELET TF 2218C29 , SBCKCL-4 , , CREATE NEW SYMBOL TABLE ENTRY 
0987CSUBCALTF 2218613, SBCKCL 



02040SiC*FDAM SUBCK,l,10 

C197C BE SBCKFD 



017;03iCKLPSM SIBCHK,2,10 .COLLECT SUBROUTINE NAME 



C177C BNH SBCKLP ,.,YES - BACK UP ANOTHER LETTER 

C179C BE SBCKLP 



1 8COSICKOT AM SIBCHK.1,10 

UNREFERENCED •»» 



01940S1CK2 TFM SLBCK , SLBL ST 



C185C BNF SBCK2,SLINDC 

C199C BNR SBCK2£12,-SUBCK 



02670S1CLARAM SIBCLL6 1 1 . 1 8 , 1 ,,,MOVE TO NEXT ENTRY 

0261C BNF SBCLAR.SUBCL , BRANCH AROUND IF ROUTINE NOT CALLED 

lC5fcOStAN TFM k,C,8 

C333C B7 SCAN m BRANCH TO NEW SCAN ROUTINE 



00870SEARGHTO »-»,RMARK , ,,SET RECORD MARK 



C086C TFM SEARCH66, INPUT£72»2 

008eC SM SEARCH£6,2,10 

C09CC C C00,SEARCH£6,11,,IS IT A BLANK 

C091C BE SEARCH 

00920 CM SEARCH£6, INPUT,,, TEST FOR BLANK CARD 

0149C SM SEARCH£6,INPUT-4 

015CC A 0K£6 » SEARCH66 

0219C SM SEARCH£6,2,10,,, 

C241C CM SEARCHED, INPUTC6 



H7COSfLAG CF SFLAG 



1 1 7CC SFL AG CF SFLAG 

1 3 b 



121C0R SF 
1234C SF 
12A8CSI ZEF BNF 



SFLAG 
SFLAG 

BRACHF, SFLAG 



,,,BACK REFERENCE 

, , , BALANCED STRING 

,,,SCAN FAILURE IF SFLAG NOT SET 



13210SFe9 SF 



1316C 



TF SF89C6 ,CURRNT 



13130SHIFT DS 



07530 
0761C 
C7620 
12820 
1297C 
13CC0 
13C1C 
13C2C 
1311C 



S 
S 
S 

TFM 

S 

S 

A 

A 

S 



ERP£9£21, SHIFT 

M, SHIFT 
W0RKU9, SHIFT 
SHIFT.O 
SVIOO, SHIFT 
SHIFT, LSTR2 
SHIFT, COLDIF 

SHIFT, LSTR3 

W0RK1S9, SHIFT 



12A60SIZEF BNF BRACHF, SFLAG ,,,SCAN FAILURE IF SFLAG NOT SET 



119CC 
12190 



BH 
BH 



SIZEF 
SIZEF 



C0760SIUPITBC2 



, , , MAKE SURE SW. 2 IS OFF 
C07CC BNF SKIPIT.CORE 



0085OSEIN0CDS 



»-l 



0084C 
0185C 
C23CC 
02320 



TDM SLINDCO 

BNF SBCK2 , SL 1 NDC 

BNF »£24,SLINDC 

TDM SLINDC-l 



13920SPACE ATM 



V* A TV , RMARK SPACE ONE LINE 

1374C DSA SPACE 



016C0SIDG OS 



C1C20 
01590 



TDM 
TDM 



SPDG.-l 
SPDG.-l 



C234CCK2 TOM SPDG.O 



139 



007103IART (TOM 0,-1,7 ...FIND CORE SIZE 

C074CCORE OS »START£l 1 
1438C DEND START-12 



04C305BB TFM EVRET ,SUB2 

C3950 BE SUB 



0987eS«BCALTF 22 lee 13, SBCKCL 

C599C BE SUBCAL 



017 305*1 BCHKDS 



017C0 TF 
C171C SM 
C172C C 
01 75CSBCKLPSM 
01760 C 
C178C C 
C18CCSBCK0TAM 
0181Q SF 
C18AC CF 



SUBCHK, PLACE 
SUBCHK, 2. 10 
C40,-SUBCHK 
SUBCHK, 2, 10 
C40, -SUBCHK 
C03.-SUBCHK 
SUBCHK, 1,10 
-SUBCHK 
—SUBCHK 



.CHECK IF SUBROUTINE CALL 
,,,COLLECT SUBROUTINE NAME 
,,, CHECK FOR NUMBER OR LETTER 
,, .CHECK FOR A PERIOD 



0196CSH18CK OS 



C194CSBCK2 TFM 
C1950 C 
C198C AM 
0199C BNR 
C204CSBCKFDAM 
02050 SF 



SUBCK.SUBLST 

2218U1.-SUBCK,,, SEARCH LIST FOR SUBROUTINE 
SUBCK, 18,10 
SBCK2£12, -SUBCK 
SUBCK, 1,10 

-SUBCK ...SET CALLED INDICATOR 



0265OSOBCL DSC 5.CC00a 



026CCSUBCLLTR 
C261C BNF 



SUBCL,»-» 
S8CLAR.SUBCL 



...MOVE IN DIM NUMBER 

...BRANCH AROUND IF ROUTINE NOT CALLED 



026C03U8CLLTR SLiBGL,»-< 



...MOVE IN DIM NUMBER 



02590 TFM SUBCLL&l 1 . SUBLST61 

02660 TR SUBCLLeil,4l6,6,M0VE IN EXECUTION ADDRESS 

0267CSBCLARAM SUBCLL61 1 , 18 , 10 ...MOVE TO NEXT ENTRY 

C268C BNR SUBCLL , SUBCLLU 1 , 1 I . END OF TABLE CHECK 

C268C BNR SUBCLL , SUBCLL&l 1 , 11, END OF TABLE CHECK 



1 



00120St/£LSTOSAC 6, PUSH,. 



,, .SUBROUTINE LIST 



C194CSBCK2 TFM 
02590 TFM 
C99A0 TFM 



SUBCK.SUBLST 
SUBCLL&l 1 . SUBLST&l 
KALSBE6.SUBLST 



10160S6IBOUTSF SUBPSH-14 



1009C 



,,, BRANCH IF ONLY ONE ARGUMENT 



09i50S6l£PSH0SAC 5C, 



10010 
10010 
10020 
10030 
1C040 
1CC5G 
1CC60KMKM 
101C0 
1011C 

10160SUB0UTSF 
10170 TF 
10180 TF 
10180 TF 



TR 
TR 
TF 
CF 
TFM 
TF 
CF 
TF 
CF 



SUBPSH-89.SUBPSH-74, .MOVE ENTRY ADDR. INTO PUSH DOWN LIST 
SUBPSH-89,SUBPSH-74,,M0VE ENTRY ADDR. INTO PUSH DOWN LIST 
SUBPSH-10.-KALSB-6 

SUBPSH-14 ...THE FOLLOWING IS PURE PROCEDURE FOR 

SUBPSH.0,2 ... RECURSIVE ENTRY 

SUBPSH— 5. CURRT2 

SUBPSH-9.PEKMT.7 

SUBPSH. CURRT2 

SUBPSH-4 

SUBPSH-14 

2299, SUBPSH 

SUBPSH, SUBPSH-15, , POP UP PUSH DOWN LIST 
SUBPSH, SUBPSH-15, .POP UP PUSH DOWN LIST 



O4420SBB2 S 



10, INTRET 



TFM EVRET ,SUB2 



081203BC CC 



081C0BRACHSTDM 
C8140BRACHFTDM 
08460FS BNF 
C848CFF BNF 
0868C BNF 



SUC-l 
SUC.O 

GOT02-12.SUC 
G0T02.SUC 
RETURN, SUC 



085COSOC2 OS 



0834C 
C8490 
08560 



TDM 
TDM 

BD 



SUC2.1 
SUC2.0 
•&24.SUC2 



newest lso cc 5,c,« 

11870 



TF SV100.WORKU9 , . .CHECK FOR SIZE FAILURE 
141 



1 1 86C A SVIOO, W0RK1619 

1189C C SVIOO, M 

1296C TF SVIOO, W0RKU9 

1297C S SVIOO, SHIFT 

1298C C LSTR3, SVIOO 



10230SV203 DC 5,C 

10390 B7 -SV203 



05360T1K81 BNF BK 8 1 1 FL AG 

C527C BE TBK81 



06220TBUIIP 6TM EJECT.Ol.MP 

C826C BNL TDUMP 



087COTFM TFM PLACE. PPT 



0863CPRINT TFM TFM6H.P0T 
C878CPUNCH TFM TFMtll.PPT 



08C50TFMZ TFM PLACE . •—• 

C8C20CONST2TF TFMZt 1 1 , PLACE 



08720TFM8K TFM PLACE, »-• 

0869C TF TFM8K611 . PLACE 



14 lfcOTHERE DS » ER P 69 



C31SC TF THERE, LK RET 

0321C SM THERE, 1, 10 

0322C TF ERPC9C21, THERE 

C748C C THERE, ERP£9£21 

C75CC S CURRT2, THERE 

C778C CM THERE, RMARK-2 

1171C TF ERPC9&2 1 , THERE 



03450TNEXT DS 



•»* UNREFERENCED •** 

1 4 2 



02180TR TR «-«,»-» , , , ERADICATE THE 8LANK 

C214C TF TR£6,CHECK£11 

C215C SM TR£6,1,10 

C216C TF TR£ll,CHECK£ll 

0217C AM TR£11,1,10 



O7230TRL<BOPTF KSTR5 , LSTR 

C73CC 8NE TRLOOP 



13670TYPEC BTM kATY, INPUT 



1361C B7 TYPEC 

139CC B7 TYPEC 

1399C B7 TYPEC 



09320T796 BTM EJECT , 796 

0928CDUMP BNF T796,DUMPSW ,,,THE DUMP MEMORY ROURINE 



13<950UNtISTTCM LIST2.0 

13760 DSA UNLIST 



10250VG AM PLACE, 2»1C 



103COVG2 BD VCC34DIG 
1035C BNE VG 

1037C BNN VG 



103C0V62 AC VG,C3A0IG 

1027C BNE VG2 



10560SCAN TFM W,0,8 

1124G A W,W0RK1£13 

1175C TF W0RK2£19,W 

1176C S W.W0RK2G13 



1 43 



09570IWTY BO LUCKY, PRINTR ,,,F0R THOSE PEOPLE WITH A PRINTER 

00980 BTM WATY, INPUT 

0143C BTM WATY, INPUT 

0144C BT WATY.ERRl-l 

C1530OVLAP BTM WATY.OVLP 

C3C8CWTY BTM WATY,»-« 

08760 BT WATY.LKRET 

C9260 BT WATY.PL8 

09270 BTM WATY.ERMES 

09380 BT WATY, 221864 

C96GC WATY — WATYG1 

09630 TF FINDRMCU » WATY-1 

0967C 39 -WATY61.900 

C971C A WATY-1, LENGTH 

09720 C WATY-1, FINDRMtll 

1367CTYPEC BTM WATY, INPUT 

13920SPACE BTM WAT Y »RMARK ,,, SPACE ONE LINE 



11740WtC8P ITR HCRK2.-I 



11800 



BNE WLOOP 



io540wtRii dsc 2 i ,-oooc-oocc-ooo-o-oooa 



C32CC 
07590 
07620 
C763C 
07650 
C7670 
C7710 
106CC 
10710 
1097C 
1098C 
11CGC 
11120 
11130 
1U4C 
112CC 

11210JIONF 

11240 

113CC 

U4C0 

11410 

11420 

1143C 

115C0 

11520 

11530 

1154C 

1155C 

11630 

1164C 

1164C 

1165C 



TF 

C 

S 

AM 

S 

SF 

CF 

TFM 

TFM 

TF 

TF 

TFM 

TF 

SM 

TF 

TF 

TR 

A 

TF 

TFM 

TFM 

TF 

SM 

TF 

TFM 

TFM 

TF 

SM 

TF 

A 

A 

TFM 



W0RK169,M 
M,W0RKU9 
W0RK1C9, SHIFT 
WORK.169,1,10 
CURRT ,W0RKU9 
-WORKl-9 
-W0RK1-9 
W0RKU9.0 
W0RK1£15,15,10 

W0RKlG4,fl ,,,BACK REFERENCE FOUNO 
W0RK1C13,WGRK2G13 



WORKl£15,25,10 
W0RK1G4,LSTR3 
W0RK1E4.1.10 
99.W0RKU4 
W0RK1613,99 
-I ,W0RK1 
W.W0RKU13 
W0RK1C4, PLACE 
W0RK1£13,0,8 
WORKie.15,0,10 
W0RKU9, PLACE 
WORKle.9,2,10 
W0RK1£4, PLACE 
W0RK1£13,2,8 
W0RK1£15,5,10 
W0RK1£9, PLACE 
WORK1£9,4,10 
W0RKU13, INTRET 
W0RK1£13,WCRK1£13 
W0RK1£13,WCRK1£13 
WORK1£15,10,10 

1 4 4 



,,, STRING IS NOT BACK REFERNCE 



,,,MOVE IN ERP ENTRY 



11670FINK TFM WORK 1 £15 ,20, 10,,, EXTRA FINAL EXTRY 

11690 TR -I.W0RK1 

11840RULE2 TR W0RK1,-I 

11870 TF SV100,W0RK1£9 ,, .CHECK FOR SIZE FAILURE 

11880 A SV100,W0RK1£19 

11920 S •£18,W0RK1E15 

1195CK TF W0RK269, WO RK169,, CONSTANT STRING 

11960 A W0RK2£9,W0RK1£13 

1197C AM W0RK1£9,1,10 

1198C SF -WORKl-9 

1199C C -W0RK2-9,-W0RKl-4 

120C0 CF -WORKl-9 

12040F TF W0RK2£9,W0RK1&9, , FILLER STRIG 

12C5G A W0RK2£9,W0RK1E13 

1211C TR WORK3.-WCRK1-4 

12120 AM W0RK1£4,21,10 

12130 TR W0RK4.-WCRK1-4 

1216C TF W0RK2£9,W0RK1£9 

122C0 AM W0RK1£9,1,10 

1221C SF -WORKl-9 

12230 CF -WORKl-9 

1228CB TF W0RK2£9.W0RK1£9 

12510 TR W0RK1,-I 

12530 S «£18,W0RK1£15 

12560A BNF 0ECW0RK1620 

126CC TR W0RK1.-I 

12620 S •£18,W0RK1£15 

12660 TR W0RK1,-I 

12670 AM W0RK1£9,2,10 

12680 TR -I.W0RK1 

12790 TF W0RK1£9,M 

128C0 TR -I.W0RK1 

12830KNLOOPTR W0RK1,-I 

12870 S »£18,W0RK1£15 

129CQK0NST TF PLACE , W0RK1C4 

12960 TF SV100.W0RK169 

13040 C WORKU 9.WCRK2E9 

13060 TF PLACE, W0RKU4 

13110 S W0RK1£9, SHIFT 

13260 AM W0RK1£9,1,10 

13270 S CURRNT,W0RK1£9 

13290 SF -WORKl-9 

13320 CF -WORKl-9 



1I260MIRE2 OSS 21 



1088G 
10890 
10920 
10930 
10930 
10950 
1098C 
11010 
11020 
11040 



TR 

CM 

A 

C 

C 

C 

TF 

S 

SF 
TR 



11740WLOOP TR 
11750 TF 
11760 S 



-PLACE ,— W0RK2-4 
W0RK1£13,W0RK2£13 
W0RK2£4,PL6 
WORK2C20 
-I I ,W0RK2 
W0RK2.-I 
W0RK2£19,W 
W,W0RK2£13 



14 



11770 


TR 


11790 


CM 


11820 


TR 


11660 


TR 


I 19SCK 


TF 


11960 


A 


1199C 


c 


12020 


TR 


1204CF 


TF 


1205C 


A 


12C6C 


TR 


12160 


TF 


1217C 


S 


12180 


C 


12220 


c 


12260MATCHSTR 


1228CB 


TF 


1229C 


AM 


123CC 


C 


12320 


C 


1236CBLOOP 


AM 


12370 


C 


1239C 


C 


12430 


c 


1271C 


TR 


12750 


TR 


12770 


CM 


12850 


TR 


13C4C 


C 


13120 


SM 


132eC 


A 


1331C 


TF 



-I.WORK2 
WORK2G15. 20,10 
-It W0RK2 
W0RK2.-I 

WORK2£9,WORKl&9, .CONSTANT STRING 
W0RK2£9,W0RK1£13 
-W0RK2-9,-H0RKl-4 
-I » HORK2 

W0RK2&9, W0RK1&9. , FILLER STRIG 
WORK2&9.WORK1C13 
-I ,W0RK2 
W0RK2£9,N0RK1E9 
W0RK2&9, W0RK3C9 
W0RK2£9.M 
-W0RK2-9 ,-ViORK4-9 
-I .U0RK2 
W0RK2£9,H0RKlt:9 
W0RK2S9,2, 10 

, » , CHECK FOR CLOSE PAREN 
, f .CHECK FOR OPEN PAREN 



C04.-W0RK2-9 
C24.-W0RK2-9 
WORK2G9.2.10 
W0RK2&9.M 
C24.-W0RK2-9 
C04.-W0RK2-9 
W0RK2,-I 
W0RK2.-I 
WORK2615,0,10 
W0RK2,-I 
W0RK1& 9.W0RK2&9 
W0RK269,«-» 
CURRNT,W0RK2£9 
-CURRNT,-WCRK2-9 



.COMPARE FOR n 
,, .EXTEND LAST STRING IF ARBITRARY 



12CeO«R*3 OSS 21 



121 1C 
1214C 
1217C 



TR 

S 
S 



W0RK3.-WCRK1-4 
W0RK3G9.W0RK4S9 
W0RK2E9, W0RK3&9 



12C90W0RK4 OSS 21 



12130 
1214C 
1222C 



TR 

S 
C 



WORK4,-W0RKl-4 
W0RK3£9,W0RK4&9 
-W0RK2-9 ,-W0RK4-9 



03C80WTY BTM kATY,»-» 



0304C 
03C5C 
03C6C 
C3C7C 



TF 
SM 
BNF 
AM 



WTYtll. PLACE 
WTYEU ,1,10 

•-12,-WTY-il 
WTYUl.1,10 



08170YIAH2 DS .BRANHS 



1 4 6 



C324C 
C798C 
C836C 
13420 



87 
B7 
87 
B7 



YEAH2 
YEAH2 
YEAH2 
YEAH2 



08190YEAH3 AM PLACE, 2, 10 ,,,MOVE PAST LABLE 
C832C B7 YEAH3 



,NOW FOR A TNF 



C483C 

C487C 

04890 

049CC 

C491C 

04920 

0494C 

04950 

C496C 

C4980E 

0499C 



TFM 
TFM 

SM 

SM 

CM 

BNE 

TFM 

SM 

AM 

TR 

S 



Z66,80 

ZCU,20 

ZE6.2.10 

zul ,1,10 

Ztll, 0,610 

Z£6,20,67 
ZE6.2.10 
Z£6,l ,10 
-CURRT2.-Z-6 
CURRT2,ZC6 



>,»NON - ZERO, TAKE OFF ANOTHER DIGIT 



14060ZIRO DC 1C,C 



0456C 
051GC 



TF 
TF 



10, ZERO 
INTRET jZERC 



147 



00010 




DC 


1,',401 


00401 


00001 




00020 


HIGH 


DS 


,434 


00434 


00000 




00030 


8KPT 


DS 


,467 


00467 


00000 




00040 




DORG 


520 


00520 






00050 


I0R3C 


NOP 


, ,,WHO NEEDS A READ BACK CHECK 


00520 


41 00000 


00000 


0Q060 


I OPT 


TFM 


CFILE+ll, TT2 ,,,PUT ENTRY 


00532 


16 01201 


01103 


00070 




B 


IOGT+12 


00544 


49 00578 


00000 


00080 




DORG 


«-l 


00554 






00090 


IOSK 


NOP 


,,7 ,,,WHO NEEDS A SEEK 


00554 


41 00000 


00000 


00100 


IOGT 


TFM 


DFILE+11, TT1 ,,, GET ENTRY 


00566 


16 01201 


01091 


00110 




TFM 


BKPT.XOl 


00578 


16 00467 


01130 


00120 




BA 


ERROR 


00590 


46 00624 


01900 


00130 


ERRET 


B 


6KPT,,6 


00602 


49 00467 


00000 


00140 




DORG 


«-4 


00609 






00150 


INOS 


DC 


2,06 . , , READ CHECK 


00610 


00002 




00160 




DC 


2,07 ,,,WRITE CHECK 


00612 


00002 




00170 




DC 


2,16 ,,,MBR-E 


00614 


00002 




00180 




OC 


2,17 ,,,MBR-0 


00616 


00002 




00190 




DC 


l,« 


00617 


00001 




002C0 


PRNINO 


DC 


1,0 ,,,PRINT CHECK-MAYBE 


00618 


oodoi 




00210 


RMARK 


DC 


1,' 


00619 


00001 




00220 




DC 


4,0 


00623 


00004 




00230 




DORG 


624 


00624 






00240 


ERROR 


TF 


«+21,INDS,7, CHECK ERROR IND. 


00624 


26 00645 


00610 


00250 




BNI 


•♦24, »-• 


00636 


47 00660 


00000 


00260 




SF 


ERR0R*ll,,6, SET ERROR FLAG 


00648 


32 00635 


00000 


00270 




AM 


ERROR+11,2,10 


00660 


11 00635 


00002 


00280 




BD 


ERROR, ERROR+11,11, CHECK END OF TABLE 


00672 


43 00624 


00635 


00290 




TFM 


ERROR+ll, INDS,, RESET 


00684 


16 00635 


00610 


00300 




RCTY 




00696 


34 00000 


00102 


00310 




B 


ERTYPE 1 


00708 


49 00820 


00000 


00320 




DORG 


*-4 


00715 






00330 


IORT 


DS 


,I0GT-1 


00565 


00000 




00340 


ICCAL 


TFM 


CFILE+ll.TTl,, CALL ENTRY 


00716 


16 01201 


01091 


00350 




TR 


CNTWD, IORT, 11, 


00728 


31 01305 


00565 


00360 




TFM 


BKPT.X0U36 


00740 


16 00467 


01166 


00370 




AM 


IORT, 9, 10 


00752 


11 00565 


00009 


00380 




BNF 


ERRET- 12, CNTWD +7 


00764 


44 00590 


01312 


00390 




AM 


IORT, 4, 10 


00776 


11 00565 


00004 


00400 




B 


ERSET-12 


00788 


49 00590 


00000 


00410 




DORG 


•-4 


00795 






00420 


MONCAL 


H 


•ttCALL EXIT ENTRY 


00796 


48 00000 


00000 


00430 




B 


«-• , , ,BRANCH TO EXECUTE 


00808 


49 00000 


00000 


00440 


ERTYPE 


WATY 


ERMES ,,,TYPE MESSAGE 


00820 


39 00955 


00100 


00450 




TF 


RTAD-1, IORT 


00832 


26 00951 


00565 


00460 




WNTY 


RTAD-5 ,,,TYPE RETURN ADDRESS 


00844 


38 00947 


00100 


00470 




SPTY 




00856 


34 00000 


00101 


00480 




WNTY 


I.4US-1 ,,,TYPE INDICATORS 


00868 


38 00609 


00100 


00490 




CF 


INDS ,,,CLEAR ERROR FLAG INDICATION 


00880 


33 00610 


00000 


00500 




CF 


INDS+2 


00892 


33 00612 


00000 


00510 




CF 


INDS+4 


00904 


33 00614 


00000 


00520 




CF 


INDS+6 


00916 


33 00616 


00000 


00530 




CF 


INDS*8 


00928 


33 00618 


00000 


00540 




B 


BKPT,,6 


00940 


49 00467 


00000 


00550 


RTAD 


DC 


It* 


00952 


00001 




00560 


ERMES 


DAC 


11,1/0 ERROR • , 


00955 


00022 




00570 


DIO 


RCTY 


,,,DISK 110 ENTRY 


00976 


34 00000 


00102 


00580 




WATY 


CKMES 


00988 


39 01049 


00100 


00590 




TF 


RTAD-1, IORT 


01000 


26 00951 


00565 


00600 




WNTY 


RTAD-5 


01012 


38 00947 


00100 


00610 




H 




01024 


48 00000 


00000 



00620 B -IORT J £ y 01036 49 00565 00000 



006 30 


0KM E S 


D AC 


ATTEMPT TO USE DISK*, 


01049 


00042 






T T 1 


DC 


2,16 ,,, TABLE OF 110 MODE + DEVICE 


01091 


00002 




00650 




DC 




01093 


00002 




00660 




DC 


2,56 


01095 


00002 




006 70 






2 17 


01097 


00002 




006 80 




OC 


? » 3 7 


01099 


00002 




00690 




DC 




01101 


00002 




00700 


TT2 


DC 




01 103 


00002 




007 10 




DC 


2 f 2 8 


01105 


00002 




007 20 




DC 


- • »8 


01107 


00002 




007 30 




DC 


2 1 1 9 


01109 


00002 




00740 




DC 


2 , 29 


01111 


00002 




00750 




DC 


2 1 49 


01113 


00002 




00760 






4 0098 »»»PRINTER CONSTANTS 


01117 


00004 




00770 




DC 


4 , 0099 


01121 


00004 




007 80 




DC 


4 » 1098 


01125 


00004 




00790 




DC 




01129 


00004 




UUouO 


X01 




* + 2 3 1 I OR T t 1 1 ,»»RECOVER DISCRIPTOR 


01130 


26 


01153 


00565 


008 10 




T R 


LIN IWUi * * 


01142 


31 


01305 


00000 


00820 






inoT 1 in r a 1 rill ATP RETURN 


01154 


11 


00565 


00001 


008 30 




BN F 


rift rMTUn*^ . .("HFTk FDR Oklfl 


01166 


44 


00976 


01310 


00840 




A 




01178 


21 


01201 


01311 


00850 


D F 1 L E 


T F 


1 P + 1 » * — * 


01190 


26 


01272 


00000 


00860 




TO 


IUr+li 1 UK* IU 


01202 


25 


01263 


01272 


00870 




CM 


rwruriiA l? in „ . .thptk phr PRTNTFR 


01214 


14 


01311 


00312 


00880 




BNH 


IOP 


01226 


47 


01262 


01100 


00890 




TFM 


PRNIND.25,10 ,, .PRINT CHECK 


01238 


16 


00618 


00025 


00900 




TD 


IOP+11, IUP+7 ,,,SET Qll 


01250 


25 


01273 


01269 


00910 


I OP 


RN 


CNTWD+4,»-*,6, I/O BUCKET 


01262 


36 


01309 


00000 


00920 






BKPT t I ORT 


01274 


26 


00467 


00565 


00930 




B A 


ERROR ,», ERROR CHECK 15 


01286 


46 


00624 


01900 


00940 




B 


IORT ,,6 


01298 


49 


00565 


00000 


00950 




DORG 


«-4 


01305 








00960 


CNT WO 


DS 


1 


01305 


00001 




00970 




DS 


12 


01317 


00012 




nno no* 
UUVtiU 1 




LO ACER 










00990 


IDA ftP Q 


RNCD 


I ,,,READ DLOAD CARD 


01318 


36 


00001 


00500 


1000 




CM 


6, 614,9 ,, .CHECK IT 


01330 


14 


00006 


00614 


1 10 




BE 


CK 


1342 


46 


01378 


01200 


1020 




H 




1354 


48 


00000 


00000 


01030 




B 


LOADER 


1366 


49 


01318 


00000 


01040 


CK 


SF 


39 


01378 


32 


00039 


00000 


1 050 




TF 


UGH, 43 ,,M0RE CORE ADDRESS 


01390 


26 


00434 


00343 


10 60 




SF 


44 


1402 


32 


00044 


00000 


01070 




TF 


MONCAL+18,48, ,MORE XEQ ADDRESS 


01414 


26 


00814 


00048 


1060 




TFM 


SEQ, 1 


1426 


16 


01850 


00001 






RNCD 


-HIGH ,,,READ PROGRAM 


01438 


36 


00434 


00500 


1 100 




TF 


H I GH2 , H I GH 


01450 


26 


01485 


00434 


Oil 10 




AM 


HIGH2.79, 10 


01462 


11 


01485 


00079 


Oil 20 




C 


SEQ,*-» 


01474 


24 


01850 


00000 


011 30 




BNE 


SfcQER ,,, CHECK SEQUENCE 


01486 


47 


01738 


01200 


1 140 




TF 


r IGH2.HIGH 


1498 


26 


01485 


00434 


011 50 




AM 


HIGH. 75, 10 


1510 


11 


00434 


00075 


01160 




AM 


SEQ, 1, 10 


01522 


11 


01850 


00001 


Oil 70 




TFM 


BKPT,»*24 


01534 


16 


00467 


01558 


i 160 




8A 


ERROR ,, .CHECK INDICATORS 


01546 


46 


00624 


01 900 


1 190 




RNF 


READ,-HIGH2 


1558 


44 


01438 


01485 


01200 




TD 


-HIGH. RMARK 


01570 


25 


00434 


00619 


01210 




TR 


1.-HIGH2 .CHECK FOR TRAILER 


01582 


31 


00001 


01485 


01220 


HIGH2 


DS 


, RE AD+47 


01485 


00000 




01230 




BNR 


READ. 6 


1594 


45 


01438 


00006 


01240 




TF 


76, -HIGH 1 5 i 


01606 


26 


00076 


00434 



012 50 




SF 


76 


01618 


32 00076 


00000 


1260 




TFM 


BD* 1 1 t 7 


01630 


16 01653 


00007 


1270 


BD 


BO 




1642 


43 01438 


00000 


01280 




AM 


pn*l 1.1.10 


1654 


11 01653 


00001 


01290 




BNF 


BD » BD* ll«ll 


1666 


44 01642 


01653 


01300 




CM 


BD+ 1 1 1 76 


1678 


14 01653 


00076 


01110 




BNE 


READ 


01690 


47 01438 


01230 


01320 




CM 


5 , 99999 


1702 


14 00005 


99999 


1 330 




BNE 


Kb AD 


01714 


47 01438 


01200 


1 3 AO 




g 


vriNTAi *■ i r * . h * fk pr 1 1 t p 

rulHl*Ml. TlDf tut CACUUI c 


1726 


49 00814 


00000 


01350 


SEQER 


RCTY 




1738 


34 00000 


00102 


01360 




MATY 


MES 1 HI 


1 750 


39 01859 


001 00 


1370 




TFM 


SEQ2 , 


1 762 


16 01856 


00000 


01380 




A 


SEQ2,,-HIGH2 


1774 


21 01856 


01485 


01390 




WNTY 


SEQ2-4 


1 786 


38 01852 


001 00 


14C0 




WAT Y 


l*ES2 


01798 


39 01901 


00100 


01410 




WNTY 


SEQ-4 


01610 


38 01846 


001 00 


01420 




H 




01822 


48 00000 


00000 


01430 




g 


READ 


01834 


49 01438 


00000 


1440 


SfcQ 


DC 


r > , 


01850 


00005 




1450 




DC 


1 » ' 


01851 


00001 




01460 


SEQ2 


OC 


5,0 


01856 


00005 




01470 




DC 


It ' 


01857 


00001 




01460 


KESl 


DAC 


21, SEQUENCE ERROR, WAS *, 


01859 


00042 




01490 


MES2 


DAC 


12, SHOULD BE 


01901 


00024 




01500 




DEND 


LOADER 


01318 







152 



•«•••• puSF FUNCTION 



ENTRY 


BD 


ER11.2295 ,,, 


ERROR IF SECOND ARGUMENT IS PRESENT 


00000 


43 


12890 


02295 




AM 


2294, 1,10 




00012 


11 


02294 


00001 




TFM 


C0LDIF,-1,9 




00024 


16 


09395 


00001 




B7 


BNR 




00036 


49 


00092 


00000 


LOOP 


C 


C23.-2294 




00044 


24 


07043 


02294 




BE 


OUT 




00056 


46 


00104 


01200 




AM 


C0LDIF.2, 10 




00068 


11 


09395 


00002 




AM 


2294,2,10 ,,, 


COLLECT NAME OF STRING 


00080 


11 


02294 


00002 


BNR 


BNR 


LOOP, -2294 




00092 


45 


00044 


02294 


OUT 


BNF 


• ♦20..COLDIF 


DON'T WORK WITH A NULL NAME 


00104 


44 


00124 


09395 




B7 


BYPASS 




00116 


49 


00252 


00000 




TF 


COLRET,2294 




00124 


26 


08593 


02294 




SM 


C0LRET.2, 10 




00136 


12 


08593 


00002 




TF 


BNR2*;il,PAST 




00148 


26 


00251 


03548 




B7 


BNR2-12 




00160 


49 


00228 


00000 


LOOK 


C 


C0LD1F,-BNR2-11 




00168 


24 


09395 


00251 




BNE 


BNR2-12 ,,, 


LOOK FOR STRINGS WITH THAT NAME 


00180 


47 


00228 


01200 




TF 


2218*:9,-BNR2-ll 




00192 


26 


02227 


00251 




C 


-2218-4, -COLRET 




00204 


24 


02222 


08593 




BE 


FD 




00216 


46 


00304 


01200 




AM 


8NR2*11,10,10 




00228 


11 


00251 


00010 


BNR2 


BNR 


LOOK,»-» 




00240 


45 


00168 


00000 


BYPASS 


BNR 


•+32,-2294 ,,, 


TEST IF DONE 


00252 


45 


00284 


02294 




TF 


CURRT2 ,CLAST 




00264 


26 


06329 


06045 




B7 


LKEVAL+24 




00276 


49 


09242 


00000 




AM 


2294,2,10 




00284 


11 


02294 


00002 




B7 


ENTRY+24 




00296 


49 


00024 


00000 


FD 


SF 


2218*15 ,,, 


FOUND A STRING 


00304 


32 


02223 


00000 




BV 






00316 


46 


00316 


01400 




AM 


2218*6,1,10 


153 


00328 


11 


02224 


00001 





BV 


ERll 


, ERROR IF MORE THAN 99 LEVALS OF RECURSION 


00340 


46 


12890 


01400 




CF 


2218*5 




00352 


33 


02223 


OOOOO 




TF 


-BNR2-11, 2218*9 




00364 


26 


00251 


02227 




B7 


BNR2-12 . . 


,G0 BACK TO SEE IF MORE HAS TO BE PUSHED 


00376 


49 


00228 


OOOOO 




DENO 


ENTRY 




00000 










POP FUNCTION 












ENTRY 


BD 


ERll, 2295 ,, 


, ERROR IF SECOND ARGUMENT IS PRESENT 


OOOOO 


43 


12890 


02295 




TFM 


BR+6.LKEVAL+24, , 


,SET UP FOR SUCCESS EXIT 


00012 


16 


00294 


09242 




AM 


2294, 1,10 




00024 


11 


02294 


00031 




TFM 


C0LDIF,-l,9 




00036 


16 


09395 


00001 




87 


BNR 




00048 


49 


00104 


00300 


LOOP 


C 


C23.-2294 




00056 


24 


07043 


02294 




BE 


CUT 




00068 


46 


00116 


01200 




AM 


C0LDIF.2, 10 




00080 


1 1 


09395 


00002 




AM 


2294,2,10 ,, 


, COLLECT NAME OF STRING 


00092 


1 1 


02294 


00002 


BNR 


BNR 


LOOP, -2294 




00104 


45 


00056 


02294 


OUT 


BNF 


•+:20,C0LDIF ,, 


, DON'T WORK WITH A NULL NAME 


00116 


44 


00136 


09395 




B7 


BYPASS 




00128 


49 


00264 


OOOOO 




TF 


eNR2*ll,PAST 




00136 


26 


00263 


035*8 




TF 


COLRET , 2294 




00 148 


26 


08593 


02294 




SM 


COLRET ,2,10 




00160 


12 


08593 


00002 




87 


8NR2-1. 2 




00 172 


49 


00240 


OOOOO 


LOOK 


C 


CCLDIF.-BNR2-11 




00180 


24 


09395 


00263 




BNE 


6NR2-12 ,, 


,LOOK FOR STRINGS WITH THAT NAME 


00192 


47 


00240 


01200 




TF 


2218*9, -BNR2-11 




00204 


26 


02227 


00263 




C 


-2218-4, -COLRET 




00216 


24 


02222 


08593 




BE 


FD 




00228 


46 


00316 


01200 




AM 


RNR2+11..10, 10 




00243 


11 


00263 


00310 


BNR2 


BNR 


LOOK,»-» 




00252 


45 


00180 


OOOOO 


BYPASS 


BNR 


ARN ,-2294 


.TEST IF DONE 


00264 


45 


00296 


02294 




TF 


CURRT2.CLAST 


15 4 


00276 


26 


06329 


06045 


BR 


B7 


«-» , , 


,PRE SET BRANCH 


00288 


49 


OOOOO 


OOOOO 


ARN 


AM 


2294,2, 10 




00296 


11 


02294 


00002 




B7 


E.NTRY + 36 




00308 


49 


00036 


OOOOO 


FD 


SF 


??l8+5 ,, 


.FOUND A STRING 


00316 


32 


02223 


OOOOO 




TFM 


:W+6, FAILED ,, 


,SET TO FAILURE EXIT 


00328 


16 


00294 


07914 




SM 


2218+6, I, 10 




00340 


12 


02224 


00031 




CF 


2218+5 




00352 


33 


02223 


00300 




TF 


-BNR2-11, 2218+9 




00364 


26 


00263 


02227 




BNF 


eNR2-12, 2218+6, , 


,TEST IF STRING POPPED OUT OF EXISTANCE 


00376 


44 


00240 


02224 




TF 


LSTR,BNR2+11 




00388 


26 


08629 


00263 




SM 


LSTR, 10, 10 




00400 


12 


08629 


00010 




TF 


22 18+ 19,-LSTR 




00412 


26 


02237 


08629 




SF 


2218+17 




00424 


32 


02235 


OOOOO 




S 


2218+14,2218+19 




00436 


22 


02232 


02237 




TDM 


CEFINE.O 




00448 


15 


08248 


OOOOO 




TD 


TDM+U,-CLAST 




00460 


25 


00507 


06045 




TD 


-CURRNT , RMARK 




00472 


25 


03762 


02925 




BTM 


CELET,»+12 




00484 


17 


09682 


00496 


TDM 


TDM 


-CLAST,»-» 




00496 


15 


06045 


OOOOO 




87 


eNR2-12 




00508 


49 


00240 


00300 




DEND 


ENTRY 




OOOOO 








>♦*»«» 


. REMDR FUNCTION 












ENTRY 


BD 


•+20,2295 ,, 


.TEST IF SECOND ARGUMENT IS PRESENT 


OOOOO 


43 


00020 


02295 




B7 


ERll ,, 


,N0 - TYPE ERROR ERll 


00012 


49 


12890 


OOOOO 




TF 


LKRET.2294 ,, 


.SET UP PARAMETERS FOR I NT ROUTINE 


00020 


26 


06281 


02294 




TF 


LSTR3,2299 




00032 


26 


02232 


02299 




SM 


LSTR3, 2, 10 




00044 


12 


02232 


00002 




BTM 


INT,«+12 ,, 


.EVALUATE INTERGER 


00056 


17 


07566 


00068 




TF 


10, INTRET 




00068 


26 


00010 


17431 




TF 


LKRET.2299 ,, 


.SET UP PARAMETERS FOR I NT ROUTINE 


00080 


26 


06281 


02299 




TF 


LSTR3.CURRT2 


155 


00092 


26 


02232 


06329 



ENTRY 



ENTRY 



SM 


LSTR3,2»10 




00104 


12 


02232 


00302 


BTM 


INT»*+12 


•••EVALUATE INTERGER 


00116 


17 


07566 


00128 


BV 


• 


•••TURN OFF OVER FLOW 


00128 


46 


00128 


01400 


LD 


99,10 




00140 


28 


00099 


00010 





90, INTRET 




00152 


29 


00090 


17431 


BV 


FAILED 


,,, FAILURE ON DIVISION BY ZERO 


00164 


46 


07914 


01400 


TF 


10,99 




00176 


26 


00010 


00099 


TF 


CURRT2, CLAST 




00188 


26 


06329 


06045 


TFM 


E*42 ( »*20 




00200 


16 


07560 


00220 


B7 


FINAR 


,,,CODE RESULT AS A STRING 


00212 


49 


07242 


00000 


TFM 


E*42,RET9-12 




00220 


16 


07560 


05998 


B7 


LKEVAL+24 




00232 


49 


09242 


00000 


DEND 


ENTRY 




00000 








MODE FUNCTION 












BD 


ERU.2295 


,,, ERROR IF SECOND ARGUMENT IS PRESENT 


00000 


43 


12890 


02295 


TF 


CURRT2,CLAST 


,,,INOICATE NULL RETURNING STRING 


00012 


26 


06329 


06045 


SF 


-CLAST 




00024 


32 


06045 


00000 


AM 


2294,1,10 




00036 


11 


02294 


00001 


BNR 


•♦20,-2294 




00048 


45 


00068 


02294 


B7 


ERU 


,,,EROR IF NO 1ST ARGUMENT 


00060 


49 


12890 


00000 


CM 


-2294,41,10 


, , ,CHECK 1ST CHARATER OF ARGUMENT 


00068 


14 


02294 


00041 


BE 


ANCHOR 


,,, BRANCH IF * ANCHOR ' 


00080 


46 


00172 


01200 


CM 


-2294,64, 10 




00092 


14 


02294 


00064 


BE 


UNANCH 


,,, BRANCH IF 'UN ANCHOR' 


00104 


46 


00192 


01200 


CM 


-2294,49,10 




00116 


14 


02294 


00049 


BE 


INTEGR 


, , ,BRANCH IF ' INTERGER' 


00128 


46 


00212 


01200 


CM 


-2294,63, 10 




00140 


14 


02294 


00063 


BE 


TRUNCT 


AO AKirU f C 1 TDIIhirATf nut 


00 152 


46 


00300 


01200 


B7 


E Rll 


,, .ERROR OTHERWISE 


00164 


49 


12890 


00000 


TFM 


BRTAB3+20, BRA 


CHF 


00172 


16 


16003 


10794 


87 


LKEVAL+24 


, , , TAKE SUCCESS EXIT 


00184 


49 


09242 


00000 


TFM 


BRTAB3*20» A2 




00192 


16 


16003 


16010 


B7 


LKEVAL+24 


, , , TAKE SUCCESS EXIT 


00204 


49 


09242 


00000 


TFM 


EXP2*:5»12*6, FAILED,, GO INTO INTERGER MODE 


00212 


16 


07076 


07914 


TDM 


CIV2*3»12*l,9 




00224 


15 


07231 


00009 


TFM 


DIV2*3»12*i6,«*20 


00236 


16 


07236 


00256 


B7 


LKEVAL+24 


,,,TAKE SUCCESS EXIT 


00248 


49 


09242 


00000 


BV 


FAILED 


,, .PATCH TO DIVISION ROUTINE 


00256 


46 


07914 


01400 


CM 


99,0,10 


. , ,MAKE SURE REMAINDER IS ZERO 


00268 


14 


00099 


00000 


BNfc 


FAILED 




00280 


47 


07914 


01200 


B7 


FINAR 




00292 


49 


07242 


00000 


TFM 


EXP2*5»12+6, FINAR, , RETURN TO TRUNCATION MODE 


00300 


16 


07076 


07242 


TDM 


CIV2*3»12+1.6 




00312 


15 


07231 


00006 


TFM 


CIV2+3»12*6, FAILED 


00324 


16 


07236 


07914 


87 


LKEVAL+24 


•••TAKE SUCCESS EXIT 


00336 


49 


09242 


00000 


OENO 


ENTRY 




00000 








SIZE FUNCTION 












BD 


ERU, 2295 


,,, ERROR IF SECOND ARGUMENT IS PRESENT 


00000 


43 


12890 


02295 


S 


CURRT2.2294 


,,, CALCULATE SIZE OF STRING 


00012 


22 


06329 


02294 


SM 


CURRT2.2, 10 




00024 


12 


06329 


00002 


MM 


CURRT2,5,10 




00036 


13 


06329 


00005 


CF 


93 




00048 


33 


00093 


00000 


SF 


89 




00060 


32 


00089 


00000 


TF 


10,98 




00072 


26 


00010 


00098 


BV 


• 


,,.TURN OFF OVER FLOW 


00084 


46 


00084 


01400 


TF 


CURRT2, CLAST 




00096 


26 


06329 


06045 


TFM 


E*42,»*20 




00108 


16 


07560 


00128 


B7 


FINAR 


,,,COOE RESULT AS A STRING 


00120 


49 


07242 


00000 


TFM 


E*>42»RET9-12 




00128 


16 


07560 


05998 


B7 


LKEVAL+24 




00140 


49 


09242 


00000 


DEND 


ENTRY 




00000 









TRItf FUNCTION 



15 



ENTRY 


BD 


ER 1 1 » 2295 tit 


ERROR IF SECOND ARGUMENT IS PRESENT 


00000 


43 


12890 


02295 




SM 


CURRT2, 3,10 




00012 


12 


06329 


00003 




c 


CL AST , CURRT2 




00024 


24 


06045 


06329 




BH 


CONE 




00036 


46 


00092 


01 100 




c 


COO , -CURRT2 , , , 


DROP TRAILING BLANKS 


00048 


24 


03135 


06329 




BNE 


DONE 




00060 


47 


00092 


01200 




SM 


C"1RT2,2, 10 




00072 


12 


06329 


00002 




B7 


ENTRY +24 




00084 


49 


00024 


00000 


DONE 


AM 


CURRT2, 1, 10 




00092 


1 1 


06329 


0000 1 




B7 


LKEVAL+24 ,,, 


THIS FUNCTION CAN NOT FAIL 


00104 


49 


09242 


00000 




DEND 


ENTRY 




00000 










ANCHOR FUNCTION 












£NT RY 


BD 


ER11.2295 ,,, 


ERROR IF SECOND ARGUMENT IS PRESENT 


00000 


43 


12890 


02295 




TF 


RSTR+11.BRTAB3+20 


00012 


26 


0009 I 


16003 




TFM 


BRTAB3+20.BRACHF, 


t ANCHOR MODE FOR THIS STATEMENT ONLY 


00024 


1 6 


16003 


10794 




TF 


RSTR+23,RETURN+6 




000 36 


2 6 


00103 


10812 




TFM 


RE TURN + 6 » RSTR 




00048 


1 6 


10812 


00080 




TF 


CURR T 2 , CL AST ,,, 


INDICATE NULL RETURNING STRING 


uuuou 


26 


06329 


06045 




B7 


LKEVAL+24 ,,, 


TAKE SUCCESS EXIT 


00072 


49 


09242 


nnnnn 


RSTR 


TFM 


BRTAB3+20,»-« 






1 6 


1 6003 


nn nr\r\ 




TFM 


RETURN +6,»-» 




00092 


16 


10812 


\J\J U <J\J 




B7 


RETURN 




00104 


49 


10806 


00000 




DEM) 


ENTRY 




00000 










UNANCH FUNCTION 












ENTRY 


BD 


ERll, 2295 ,,, 


ERROR IF SECOND ARGUMENT IS PRESENT 


00000 


43 


12890 


02295 




TF 


RSTR+ll,BRTAB3+20 


00012 


26 


00091 


16003 




TFM 


BRTAB3+20.A2 ,,, 


UNANCHORED MODE FOR THIS STATEMENT ONLY 


00024 


16 


16003 


16010 




TF 


RSTR+23,RETURN+6 




00036 


26 


00103 


10812 




TFM 


R E TURN + 6 , RSTR 




00048 


16 


10812 


00080 




TF 


CURRT 2 , CL AST ,,, 


INDICATE NULL RETURNING STRING 


00060 


26 


06329 


06045 




B7 


LKEVAL+24 ,,, 


TAKE SUCCESS EXIT . .. 

1 5^ 


00072 


49 


09242 


00000 



****** 

ENTRY 



TFM 


BRTAB3+20,*-* 






00080 


16 


16003 


OOOOO 


TFM 


RETURN +6,»-» 






00092 


16 


10812 


OOOOO 


B7 


RETURN 






00104 


49 


10806 


OOOOO 


DEND 


ENTRY 






00000 








EQUALS FUNCTION 














BD 


*+20,2295 


,,,TEST IF SECOND ARGUMENT 


IS PRESENT 


00000 


43 


00020 


02295 


B7 


ERll 


,,,N0 - TYPE ERROR ERll 




00012 


49 


12890 


OOOOO 


S 


2294,2299 






00020 


22 


02294 


02299 


A 


2294,CURRT2 


, , , CHECK IF STRING LENGTHS 


ARE EQUAL 


00032 


21 


02294 


06329 


S 


2294,2299 






00044 


22 


02294 


02299 


BN Z 


FAILED 


,,,N0 - TAKE FAILURE EXIT 




00056 


47 


07914 


01200 


SF 


-CLAST 






00068 


32 


06045 


OOOOO 


SM 


2299,2, 10 






00080 


12 


02299 


00002 


SM 


CURRT2,2, 10 






00092 


12 


06329 


00002 


c 


2299, CLAST 


,, .CHECK FOR A NULL STRING 




00104 


24 


02299 


06045 


BNh 


sue 






00116 


47 


00152 


01100 


C 


-2299,-CURRT2 


, , , COMPARE STRING CONTENTS 




00128 


24 


02299 


06329 


BNE 


FAILED 


,, .FAILURE IF NOT EQUAL 




00140 


47 


07914 


01200 


TF 


CURRT2, CLAST 


,,, INDICATE NULL RETURNING 


STRING 


00152 


26 


06329 


06045 


B7 


LKEVAL+24 


, , , T AKE SUCCESS EXIT 




00164 


49 


09242 


OOOOO 


DEND 


ENTRY 






OOOOO 








UNECL FUNCTION 














BD 


•+20,2295 


,,,TEST IF SECOND ARGUMENT 


IS PRESENT 


00000 


43 


00020 


02295 


B7 


ERll 


,,,N0 - TYPE ERROR ERll 




00012 


49 


12890 


OOOOO 


TF 


SVCUR.CURRT2 


,,,SAVE CURRT2 VALUE 




00020 


26 


00103 


06329 


TF 


CURRT2, CLAST 


,,, INDICATE NULL RETURNING 


STRING 


00032 


26 


06329 


06045 


S 


2294, 2299 






00044 


22 


02294 


02299 


A 


2294,SVCUR 


, , , CHECK IF STRING LENGTHS 


ARE EQUAL 


00056 


21 


02294 


00103 


S 


2294, 2299 






00068 


22 


02294 


02299 


BNZ 


LKEVAL+24 


,,,N0 - TAKE SUCCESS EXIT 




00080 


47 


09242 


01200 


SF 


-CLAST 




159 


00092 


32 


06045 


OOOOO 



SVCUR 



*•••»» 

ENTRY 



ENTRY 



»#»«#• 

ENTRY 



ENTRY 



OS 


,* 




00103 


00000 




SM 


2299,2, 10 




00104 


12 


02299 


00002 


SM 


SVCUR, 2, 10 




00116 


12 


00103 


00002 


c 


2299..CLAST 


,», CHECK FOR A NULL STRING 


00128 


24 


02299 


06045 


BNH 


FAILED 




00140 


47 


07914 


01100 


c 


-2299, -SVCUR 


,»»COMPARE STRING CONTENTS 


00152 


24 


02299 


00103 


BNE 


LKEVAL+24 


,, .FAILURE ON EQUALITY 


00164 


47 


09242 


01200 


B7 


FAILED 




00176 


49 


07914 


00000 


DENO 


FNTRY 




00000 








• EQ 


1 FUNCTION 












BO 


•♦20, 2295 


,,,TEST IF SECOND ARGUMENT IS PRESENT 


00000 


43 


00020 


02295 


B7 


ER 1 1 


,,,N0 - TYPE ERROR ER11 


00012 


49 


12890 


00000 


f F 


LKRET, 2294 


,,,SET UP PARAMETERS FOR INT RDUTINE 


00020 


26 


06281 


02294 


XF 


LSTR3, 2299 




00032 


26 


02232 


02299 


SM 


LSTR3, 2,10 




00044 


12 


02232 


00002 


BTM 


INT , • ♦ 1 2 


,,, EVALUATE INTERGER 


00056 


17 


07566 


00068 


TF 


<;9» [ NTRET 




00068 


26 


00099 


17431 


XF 


LKRET, 2299 


,,,SET UP PARAMETERS FOR INT ROUTINE 


00080 


26 


06281 


02299 


TF 


LSTR3,CURRT2 




00092 


26 


02232 


06329 


SM 


LSTR3,2, 10 




00104 


12 


02232 


00002 


BTM 


INT , •♦ 12 


,,, EVALUATE INTERGER 


00116 


17 


07566 


00128 


XF 


CURRT2,CLAST 


,,, INDICATE NULL RETURNING STRING 


00 128 


26 


06329 


06045 


c 


99 , I NTRET 


,,, COMPARE THE TWO NUMBERS 


001 40 


24 


00099 


17431 


BE 


LKEVAL+24 


,, ,BRANCH IF THE CONDITION IS FULFILLED 


00152 


46 


09242 


01200 


B7 


FAILED 


,, , OTHERWISE - FAILURE 


00164 


49 


07914 


00000 


DENO 


cNTRY 




00000 








• ME 


FUNCTION 












BO 


•♦20,2295 


,,,TEST IF SECOND ARGUMENT IS PRESENT 


00000 


43 


00020 


02295 


B7 


ER11 


,,,N0 - TYPE ERROR ERll 


00012 


49 


12890 


00000 


TF 


LKRET, 2294 


,,,SET UP PARAMETERS FOR INT ROUTINE 


00020 


26 


06281 


02294 


TF 


LSTR3, 2299 


1 6 


00032 


26 


02232 


02299 


SM 


LSTR3, 2, 10 




00044 


12 


02232 


00002 


BTM 


INT, •♦ 12 


,, , EVALUATE INTERGER 


00056 


17 


07566 


00068 


TF 


99, INTRET 




00068 


26 


00099 


1743 1 


XF 


LKRET , 2299 


,,,SET UP PARAMETERS FOR INT ROUTINE 


00080 


26 


062B1 


02299 


TF 


LSTR3,CURRT2 




00092 


26 


02232 


0632 9 


SM 


LSTR3 , 2,10 




00104 


12 


02232 


0000 2 


BTI* 


INT,»+12 


, »,CVMl_UMIC 111 1 tl\UCn 


00116 


17 


07566 


00128 


TF 


CURRT2 ,CLAST 


,,, INDICATE NULL RETURNING STRING 


00 1 28 


26 


06329 


06045 


c 


99, INTRET 


,,,COMPARE THE TWO NUMBERS 


00 140 


24 


00099 


1 743 1 


BNE 


LKEVAL+24 


,», BRANCH IF THE CONDITION IS FULFILLED 


00152 


47 


09242 


01200 


B7 


FAILED 


»», OTHERWISE - FAILURE 


001 64 


49 


07914 




DEND 


ENTRY 




00000 








.LE 


FUNCTION 












BO 


•♦20, 2295 


,,»TEST IF SECOND ARGUMENT IS PRESENT 


00000 


43 


00020 


02295 


B7 


E°. 11 


,,,N0 - TYPE ERROR ERll 


00012 


49 


12890 


00000 


TF 


LKRET, 2294 


,,,SET UP PARAMETERS FOR INT ROUTINE 


00020 


26 


06281 


02294 


TF 


LSTR3, 2299 




00032 


26 


02232 


02299 


SM 


LSTR3,2,10 




00044 


12 


02232 


00002 


BTM 


INT,»+12 


,, (EVALUATE INTERGER 


00056 


17 


07566 


UULFOO 


TF 


99, INTRET 




UvUDO 


26 


00099 


1 743 1 


XF 


LKRET, 2299 


,,,SET UP PARAMETERS FOR INT ROUTINE 




26 


06281 


02299 


XF 


LSTR3,CURRT2 




00092 


26 


02232 


06329 


SM 


LSTR3, 2, 10 




00104 


12 


02232 


00002 


BTM 


INT, »+12 


,,, EVALUATE INTERGER 


00116 


17 


07566 


001 28 


XF 


CURRT2,CLAST 


,,, INDICATE NULL RETURNING STRING 


00128 


26 


06329 






99 , I NTRET 


. . .rriMDAQP tmf run nhmapr^ 
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